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ABSTRACT 


’ An analytical model, based on an extended Rayleigh-Ritz 
technique, has been developed for the purpose of predicting local 
buckling behaviour of columns, beams, or beam-columns composed of 
W shape sections. A tangent modulus buckling theory is used and a 
Erl—-linear stress ~‘stvain curve for an elastic — plastic, = strain— 
hardening material is assumed. The effects of residual stresses as 
well as the interactive effects of web - flange restraints are 
included directly in the formulation. The flexibility of the 
analytical model allows for the possibility of separate flange or 
web buckling as well as simultaneous buckling of the web and flanges. 
An elaborate formulation of plate component stiffness matrices per- 
mits the use of varying material properties for longitudinal strips 
of a member as yielding and strain-hardening progress during 
loading. 

A computer program based on the analytical model was 
verified by an extensive comparison of results with available 
elasszucal results for elastic local buckling of plates. Ihe validity 
of the local buckling analysis beyond the elastic range was well- 
established by comparison of computer results with the results of 57 
tests conducted by various investigators using column, beam, and 
beam-column specimens. 

Having thus been verified, the computer program was used 


to conduct an exhaustive study of the effect of various parameters 
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which were expected to have an important effect on local buckling 
behaviour. As a result of this study, various modifications to 
existing web and flange slenderness limitations for columns, 
beams and beam-columns are indicated. Further research in the 
form of full-size laboratory specimen tests is recommended and 


various suggestions are made with regard to future testing. 
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LIST OF SYMBOLS 


The following is a list of the more commonly used 
symbols which are presented here for ease of reference. The 
meanings of all symbols used in the text are defined where they 
first appear. The meanings of symbolic names used in the computer 
program are explained within the program listing presented in 


Appendix C. 


Dimensions and Displacements 


> one = Locations of material boundaries 
(Compression flange) 
Oh» one = Locations of material boundaries 


(Tension flange) 
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b = Flange width 

h = Web height 

il = Length of a specimen 

ty = Tension flange thickness 

tF = Compression flange thickness 

to = Web thickness 

yy = Distance to neutral axis from mid- 
height of web 

GA NAY AY = x-, y-, and z- Components of 
displacement 

Ader re uy = Subscript notation for displacements 
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imperfection 
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cf = Column yield load 
Geometric Properties 
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yield surface 
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Chapter 1 
INTRODUCTION 


ii General: 


A large proportion of the members used in present-day steel 
structures are uniform throughout their lengths and have I-shaped 
cross-sections’, Such members are referred to as W shapes and are 
particularly efficient when used as beams for transferring bending 
moments within a structure. W shapes are also used as columns for 
transferring pure axial compression and as beam-columns for trans-— 
ferring combined axial compression and bending. Depending on the 
width-to-thickness ratios of their flanges, W shapes are classified as 
Glaser ec lassea2, Classes. ald Gilacss 4 sections!. Because of their 
thin-walled characteristics these members are particularly susceptible 


15253 Gf their component plates and this local 


to local buckling 
instability limits the load-carrying capacity of the members. Thus, in 


limit states design’’* local buckling of component plates of W shapes 


is one limit which must be met. 


ieee Local buckling 
In the present study the limit state of local buckling is 
isolated from other limit states such as those related to overall 


instability, material strength and excessive deflections’. This 
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procedure coincides with present design philosophies which require that 
local buckling be prevented prior to the attainment of the maximum 


strength of a member!’®’>, 


Since local buckling is isolated, a funda- 
mental assumption is that all members are fully braced against overall 
instability. Local buckling of W shapes may be defined as a bifurcation 
phenomenon” whereby a component plate subjected to in-plane stresses may 
Dewin-equilibrium in its original planar conficuration or in a 
neighboring deflected configuration. This critical state can occur in 
the elastic or inelastic regions of material response depending on the 
level of yield stress, the plate width-to-thickness ratio, and plate 
boundary conditions*’*?°’’, Because of the nature of buckling] Leis 
more precisely defined by a mathematical formulation. In the present 


study such a formulation is based on the principle of virtual work® and 


is presented in Appendix A. 


1.3. Design Considerations 


As already established by previous investicatore « @ oye. 


a 
significant parameter affecting the stability of a plate is its width- 
to-thickness ratio. Therefore, a designer must consider the width-to- 
thickness ratios of flanges and webs when determining the local buckling 
resistance of W shapes. Other factors which affect plate stability in 
W shapes are the type of nae edge supports at the ends of a member, 
the type of stress distribution on a member cross-section, and the 
material properties of the steel*’’, Because of the significant effect 
that the yield stress level has on plate buckling’, the present design 


code’ specifies limitations on the width-to-thickness ratios of webs and 


flanges multiplied by the square root of the yield stress. 
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eos La Lcurrent Reguirements for Flanges and Webs 


The current Canadian design standard used for steel”, 
specifies width-to-thickness terms for four classes of W shape beam-— 
columns. It is required that Class 1 sections permit the attainment 
of the reduced plastic moment and also allow for sufficient rotation 
capacity for subsequent redistribution of load before local buckling 
occurs. A Class 2 section is required to permit the attainment of the 
reduced plastic moment capacity with no provision for the requirement 
of subsequent load redistribution, A Class 3 section must permit the 
attainment of the reduced yield moment and for a Class 4 section the 
limit state of structural capacity is local buckling of elements in 
compression. Class 4 sections are light-gauge cold-formed sections and 
their behaviour does not form a part of this study. The present design 
limitations for Class 1, 2, and 3 sections are presented in detail in 
Chapter 6. These limitations are such that for a given class of section, 
local buckling of the component plates must not occur until the section 
has satisfied the minimum requirements for its classification. Since 
columns are not designed according to a required bending moment capacity, 
they are not classified as above, However, it is usual to use the same 
limitation for column flanges as that specified for Class 3 sections, 


while column webs are limited by a maximum width-to-thickness term’. 


i.3.2 Previous Requirements for Flanges and Webs 


Previous design codes*® have presented width-to-thickness ratios 
for flanges and webs of W shapes subjected to axial compression, bending, 
and axial compression and bending combined. As will be examined further 


in Chapter 2, these values are based on the results of an investigation 
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by Haaijer and Thurlimann’. Recently, however, studies performed at 
the University of Alberta by Kulak et al1°°!!?!2°!3 have shown that 
previously specified width-to-thickness limitations were overly 
conservative. As a result of these studies, the present code’ uses 
values that supersede previously specified width-to-thickness 


limitations for component plates of columns, beams, and beam-columns. 


1.4 Objectives 


The investigations conducted at the University of Alberta 
have been largely experimental and empirical in nature. The work has 
resulted in new design equations and graphs which are presently in 
sere The present study is a continuation of this work with emphasis 
on the theoretical nature of plate buckling as it relates to W shapes 
subjected to axial compression, bending, and axial compression and 
bending combined. 

The objectives of the present study are as follows: 

1. to establish an idealized mathematical model to study 
local buckling of W shapes subjected to axial 
compression, bending, or to axial compression and 
bending combined, 

2, to establish the validity of the mathematical 
technique by comparing analytical results with 
test results. 

3. to present design equations and graphs for a broad 
spectrum of practical cases for which test results 
are not available. 


4, to suggest, where appropriate, additional revisions 
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to presently specified width-to-thickness limitations 


for component plates of W shapes. 


pe scope 


The mathematical formulation presented herein permits an 
analysis for local buckling of W shapes of various cross-sectional 
dimensions and material properties. The analysis is performed for 
axial compression, bending, and combined axial compression and bending 
applied at the member ends. The effects of residual stresses are 
included and web, flange, or combined web and flange buckling is 
predicted in the elastic or inelastic ranges. The restraint interaction 
of flanges and web is also accounted for by the mathematical model. 

In Chapter 2 a review of the available literature that 
relates to the present study is outlined. In Chapter 3 the general 
mathematical formulation technique is discussed in detail and the 
application of this technique to the general case of combined axial 
compression and bending is presented in Chapter 4. In Chapter 5 the 
analytical technique is applied to the investigation of local buckling 
of 57 specimens that have been tested by various investigators. 
Theoretical and test results are compared. Analytical results for a 
wide range of Class 1, 2, and 3 columms, beams, and beam-columns are 
presented in Chapter 6, and in addition these theoretical results are 
interpreted for application to design. Also presented in Chapter 6 is 
a study of the parameters considered important in the analysis. The 
conclusions of the present study and the resulting design 
recommendations are presented in Chapter 7. 


The mathematical formulation of plate buckling based on the 
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principle of virtual work® is presented in Appendix A and the material 
properties are discussed in Appendix B. Because of the nature of the 
mathematical formulation which employs the use of matrix algebra as 
well as the use of iterative techniques for the inelastic cases, hand 
computation is highly impractical. Therefore, a computer program 
coded in Fortran IV and suitable for use with an Amdahl 470V/6 or an 
IBM 3032 computer was used for the computations. A listing of the 
program with explanations of the subroutines and typical input data 


and corresponding output are presented in Appendices C and D. 
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Chapter 2 
LITERATURE SURVEY 


A review of the available literature indicates that the 
problem of elastic plate buckling has been thoroughly investigated 
since the publication in 1891 of the original work done in this area’”*. 
The theoretical investigations include the closed-form solutions of 
single plates having regular geometric shapes and various stress and 
displacement boundary conditions. These solutions have been well- 
documented, anduare weadiiy available in the litecature: °° =. 

It was not until the 1920's that the problem of inelastic 
plate buckling first began to receive some attention. In much the 
same way as for columns, inelastic buckling of rectangular plates was 
first treated by replacing the elastic modulus by a reduced modulus 
or a tangent modulus above the proportional limit. Bleich®, for 
example, assumed that above the proportional limit, the reduced modulus 
would be effective in the direction of uniaxial stress while the 
elastic modulus remained effective in the transverse direction. It was 
further assumed that an effective shear modulus equal to the geometric 
average of the elastic and reduced moduli would be applicable. 
Alternatively, Ros and Eichinger’’, assuming isotropy in the inelastic 
range, suggested using the reduced modulus in all directions. Of the 
two, it was found that Bleich's assumptions led to values in closer 
agreement with test results. 


Other investigators have attempted to improve upon the 
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existing knowledge in this area by including the total elastic-plastic 
stress-Strain relationships in the plate buckling analysis. Prominent 
among those investigators were Bijlaard!®, Ilyushin!’, and Stowell1?° 
who used the deformation theory of plasticity® while Onat and Drucker?! 
and Handelman and Prager’* promoted the use of the incremental theory® 
in the plastic analysis of plate buckling. While the former method 
showed much better agreement with test results, it has been recognized 
that the latter method is the mathematically correct one ae ee 
The main reason for this paradox appears to be the prediction by the 
incremental theory of a value of the shear modulus in the inelastic 
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range equal to its value in the elastic range It has been 


shown that a reduction in this value leads to much better correlation 
between theory and test Pesuleeweces 

Early investigations of web and flange stability for W shape 
members were based on several simplifying assumptions, For both elastic 
and inelastic buckling it was assumed that the plate components at web- 
to-flange junctions were either rigidly supported or simply supported 
and the effects of residual stresses were neglected. Using these 
assumptions as well as Bleich's assumption of anisotropy in the 
inelastic range it was possible to arrive at closed-form solutions for 
several types of in-plane loadings 2°? >>. 

In the late 1950's Haaijer and Thurlimann published the 
results of an investigation of inelastic local buckling in steel’. 
The main purpose of this investigation was to determine maximum plate 
width-to-thickness ratios for W shapes suitable for plastic design. An 


incremental theory** was used in the analysis and the inelastic value 


of the shear modulus was reduced by 80 per cent, (The investigators 
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attributed this reduction to the effects of initial imperfections. 


However, in a more recent investigation’ ° 


» Lay discounted this effect 
of initial imperfections and arrived at a similar reduction in the 
shear modulus by applying slip-line field theory). 

In their investigations, Haaijer and Thurlimann presented 
analytical solutions for single web or flange plates assuming either 
simple support or fully rigid support at the web-to-flange junctions. 
The effects of residual stresses were not included directly in the 
analysis. However, for the buckling strength of columns and plates in 
uniaxial compression, an empirical transition curve was suggested for 
use above the proportional limit. The experimental investigation of 
W shapes included six axial specimens and six flexural specimens. The 
present code limitations for flanges and webs of Class 1 W shapés 
are based on the results of these tests’. 

Although Haaijer and Thurlimann did not test any specimens 
subjected to axial and flexural loadings combined, they used the results 
of a semi-empirical method to suggest plate width-to-thickness values 
for such members. In this method it was assumed that values obtained 
for axial specimens failing by web buckling would be applicable to an 
average strain in the compression zone of the webs of beam-—columns. 
The present code limitations for plate components of Class 1 W shape 
beam-columns are based on the results of this semi-empirical method”. 

In the years following the work of Haaijer and Thurlimann 
many investigators published results of research concerning the elastic 
and inelastic buckling strength of single plates. With the aid of 
discretization techniques and computer methods it has been possible to 
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investigate many different cases However, although 
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useful, none of these works is concerned directly with the 
understanding of local buckling behaviour in W shape members. More to 
the point, other studies have been directed towards local buckling in 
W shape beams. The studies of Lay*?, Culver°’*, and McDermott°®°, for 
example, have all indicated a flange width-to-thickness limitation of 
b VE /2t = 54 for sections required to reach the strain-hardening 
strain. Results of tests performed by Lukey and Adams°°® have 
indicated that a flange width-to-thickness term of 64 can be used for 
sections required to develop the full plastic moment capacity. A 
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study by Basler and Thurlimann*’ has indicated that webs of girders 


required to reach ne can have a value of La a as high as 980. More 


recent research by Croce?® 


has indicated that avEL/w can have a 
value as high as 750 for beams used in plastic design. 

In 1973 a study of coupled local buckling in beam-columns 
was presented by Rajasekaran and Murray °%. The method of analysis was 
based on finite element techniques and could accommodate a large 
variety of boundary conditions. The method assumed linear elastic 
material response and did not include the effects of residual stresses. 
It was found that the analysis gave good results for flange local 
buckling but web buckling could not be accurately predicted. 

In 1977, Akay, Johnson, and Will presented a study of 


#0 A finite element 


lateral and local buckling of beams and frames 
technique using plate elements for webs and line elements for flanges 
was used. The buckling modes were restricted by the assumption that 


straight lines across the flanges and normal to the web remain straight 


during buckling. Although the method is quite general with regard to 
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plate geometry and boundary conditions it assumes linear elastic 
response and neglects the effects of residual stresses, 

invio78, avstudy of local, distortionaljand lateral buckling 
of W shape beams was presented by Hancock*?, A finite strip 
technique was used in the analysis and an elastic, linear material 
response was assumed. The effects of residual stresses were not 
included in the analysis, Other studies using finite strip techniques 
were presented in 1964 by Plank and Wittrick’* and in 1974 by Goldberg, 


3 who extended the work of Przemieniecki??, 


Bogdanoff, and Glauz* 
Plank and Wittrick suggested a method for analysing thin-walled 
sections for lateral-torsional buckling. Presumably local buckling 
could be predicted by iterating on the length parameter. Plate 
thickness as well as geometry, material properties, and loading could be 
varied for a given member. However the effects of residual stresses 
were not included and apparently the method was not suitable for local 
buckling of W shapes since it was neither used, nor recommended, for 
this purpose. 

As mentioned above, Goldberg, Bogdanoff, and Glauz’** extended 
the work of Przemieniecki** to include lateral buckling modes as well 
as more complicated states of stress. An elastic material response was 
assumed and the effects of residual stresses were not included in the 
analysis. Again, the method was neither applied to, nor recommended 
for, the analysis of local buckling of W shapes. 

None of the above-mentioned techniques has been applied to 
an in-depth study of local buckling of Class 1, Class Ze ana Glass 
W shape sections. In 1973, Kulak initiated such a study on an 
10 


experimental basis A total of ten beams (eight Class 2 and two 
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Class 1 sections) were tested under equal third-point loadings. Based 

on the results of these tests it was concluded that the existing web 
width-to-thickness limitations for Class 2 sections were conservative and a 
need for additional tests on beams and beam-columns was indicated. Other 
tests followed, and in 1975 two Class 3 beams were tested and an 

increase in the existing web limitations for Class 3 beams was 

indicated?!, 

In 1974 Kulak and Perlynn published the results of a study in 
which nine Class 2 W shape beam-columns were tested under various 
amounts of axial load?!?, Again it was determined that the existing web 
limitations were too conservative for Class 2 beam-columns and a need for 
additional tests on Class 3 beam-columns were indicated. In 1976, the 
results of such a study were reported by Kulak and Nash’*?, It was 
indicated that web limitations for Class 3 beam-columns could also be 
somewhat relaxed. As a result of the work carried out by Kulak,et al. 
at the University of Alberta, significant changes in the web limitation 
requirements for W shapes have been implemented for Class 2 and 
Class 3 sections’. 

The investigations carried out by Kulak,et al, were largely 
experimental although two semi-empirical methods for determining 
critical web width-to-thickness ratios were presented’?, Method I 
was based directly on test results and Method II combined test results 
with a variation of the method used by Haaijer and Thurlimann’. 

Because of the limited number of test results used, the methods were 
valid only for sections that were similar to those tested. Furthermore, 
the methods did not allow for variations in flange sizes, lengths of 


specimens, residual stresses, and material properties. For the types of 
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specimens tested, the methods were valid only between the limits of 
a equal to 0.15 and 0.80 since these were the lower and upper 
limits used in the tests. A purely analytical method was not 


developed. 


ee 


Chapter 3 
GENERAL ANALYTICAL METHOD 


Sole -Inerocuction 


The problem of plate buckling in the elastic range has been 
thoroughly investigated and solutions are available for many cases 
including various plate shapes and stress and displacement boundary 


conditions-'°°'°??*, 


Solutions for the analysis of orthotropic plates 
and for buckling capacities of plates in the inelastic range have also 
beenupublished- -°!°”** The technique for obtaining a mathematical 
formulation for such problems is based on either an equilibrium 
method or an energy method’. 


d??®, the equations of equilibrium 
q g 


In the equilibrium metho 
are formulated on a deformed configuration of the plate. This 
configuration is compatible with the expected mode of buckling, Once 
the equations of equilibrium are solved simultaneously, the problem 
reduces to that of the solution of a biharmonic differential equation. 
This method makes use of the fact that, during buckling, a plate may 
be in equilibrium in its original planar configuration as well as in 
avnefehboringebuckled@contiguration;. thatiis, sthe platesis at va point 
of bifurcation. 

Two commonly used energy techniques for formulating plate 
buckling problems are the principle of minimum potential energy and 


the principle of virtual work®, Of these two methods, the principle 


of virtual work is a more general statement of the principle of the 
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conservation of energy. It does not require the assumption of the 
existence of a strain energy function and it can be applied to an 
elastic or an inelastic material®’*>. In the present analysis the 
principle of virtual work is used for the formulation of a plate 
buckling condition. In applying this method, a buckled configuration 
is first assumed. Then, a virtual displacement*® from a buckled 
configuration is postulated. By equating the internal work done by 
the equilibrium stress field existing in a plate during this virtual 
displacement to the work done by the external forces acting on the 
plate during the same displacement, an integral differential equation 


is obtained. Using a Rayleigh-Ritz technique®’*®’*’ 


and a displacement 
field defined in terms of a set of nodal displacement coordinates, a 
matrix buckling condition is obtained and a standard eigenvalue 
problem Pesultsmerero rs BThis technique is developed in detail in 


Appendix A. 


3.2 Idealized Cross-section 


The technique outlined above is applied to W shapes having 
idealized cross-sections such as that illustrated in Figure 3.1. All 
subsequent mathematical formulations are referred to the mid-planes of 
the component plates of a W shape, Thus, the assumed height of web 
extends into each flange by a distance equal to one-half the flange 
thickness. Consequently, the area corresponding to each projection is 
twice included in the calculations of axial loads and bending moments. 
The purpose of this is to recognize that fillets at web-to-—flange 
junctions do exist and that these additional areas of projection do, to 


some extent, account for them. 
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The width-to-thickness ratio for a flange is obtained by 
dividing one half the flange width by the flange thickness. In 
determining the width-to-thickness ratio of a web it is assumed that 
web-to-flange fillets have leg lengths equal to one-half the flange 
thickness. Therefore, the length of the web is taken as the clear 
distance between flanges minus the fillet leg lengths. The purpose of 
this is to take into account, to some extent, the effects of the fillets 
in decreasing the effective buckling height of a web. 

As shown in Figure 3.1, variations in flange dimensions are 
permitted by using different flange widths and thicknesses. In sub- 
sequent discussions, in addition to the notations shown in Figure 3.1, 
Ay represents the area of a lower flange, A. represents the area of a 
web, and Ay represents the area of an upper flange. Furthermore, for 
clearness of discussion, it is assumed that an upper flange is one that 
will normally be in compression and a lower flange will normally be in 
tension under an applied bending moment, The subscripts, 1 and u, are 


used to refer to the lower and upper flanges respectively. 


OromeuMatetia. Properties 


In applying any mathematical technique to the prediction of 
plate buckling capacities it is necessary to have an accurate 
evaluation of the material properties to be used. In the method 
presented herein, a uniaxially stressed longitudinal fibre of a W shape 
section is assumed to have an idealized tri-linear tensile stress - 
strain response such as that shown in Figure 3,2. It is further 
assumed that this stress - strain response also applies to a fibre in 


compression. At the point where yielding occurs in a fibre, the strain 
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is designated by a and the corresponding yield stress is designated 
by we For values of strain less than the yield strain, the fibre has 
an elastic modulus (also called Young's modulus) designated by E. At 
the point where strain-hardening of a fibre begins, the strain is 


represented by ES For strains larger than this, the fibre displays 


30 
an increased resistance to further straining. This fibre stiffness 
is evaluated as the strain-hardening modulus, Fete 

In the intermediate range of strain between ae and oes the 
fibre yields and a yield modulus, E,., represents the slope of this 
portion of the curve. If the value of E, is zero there exists no ex- 
plicit and definable relationship between stress and strain. That is, 
at the yield stress level, a fibre can assume an arbitrary value of 
strain and, if the direction of loading is such that strains tend to 
increase, it is likely that the strain-hardening modulus will govern 
the behaviour of a fibre that has yielded, The assumption that strain- 
hardening material properties govern buckling behaviour for strains 
above the yield strain has been successfully used by several 


Z Sas Sis 5 19152051 5:3 9) 54 


investigators and this assumption is also made in the 


present investigation, 


3.4 Analytical Technique 


As explained in section 3.1 a plate buckling condition is 
derived using the principle of virtual work. This derivation is 
presented in detail in Appendix A and it results in an integral 
differential equation for the buckling condition. For a uniaxially 


stressed orthotropic plate, the buckling condition is as follows: 


z 1 


| ; rine 
tn 9 \gatvonvei-niaeia 4 n 
pigs af agisize 4% (4) bg 
ao" ati = - + ie 
sata Aptntatis yeild SP of aoteteraaa & 
sen a 


aati beat een tes d-nt aria oul nos 


twa” . 

ifs vag # ina e agadiad ildt22 Woogent sqathaerment atu sa 
abil? 39 seeder egisper ys ch, tei how Lisiy sehes sstoty a 
“aon sidtes gives een) A fo gules pa YT Sern sid) To A. | 
8k seeT vals | Beg, dee ee Haszied oercrotielay eldabhtab tem signet rs 
te antsy erseiniin ie aclieteg fay e249 « .lavel esgeste Rick, sat ae 
ie Wharvapiodite seil¢ylows, a2 grtten! id. sosze73b ata oe ie 
azevirg, LS byl bila gobssatentiss-+ att), 1K3 Aah a? $i) 3k. aieed 
aniewo cal! napianiee add 4 f6hiote wad tele ardta wm Be vedas 


enisze4 {07 We vated jamllisus : me pol 3 (6e@Gag fetrTavan-s 


(extven. 44 Som gliavarsist: wed ead whsrse ofedy ott 


V2 VE2 pSaed he OPaee 


og3 ni sian O8is at fotaqevess 2iay Dri 


sbptatinT Lestsetigie 
ail neaabbans qu? ibd a8255 4 §,.0-nocyen-ntSehinlees: Oh ee 

ai wobravrcsl) ara tow aes eli G4 Sigtoaien anzia | 

fexgains, Pe iRingalres) 4i vie 4 eisaeqgA nS ee 

ei Sebasiw 3 204 sheretboes griivand ays in3 rain : 

Veatate sae bates: gabe si 589 paca 


18 


+4 fe = 
CP ei EER: | J NW ow, dxdy 0 


(A-35) 


where Di eS Damar anic Dee are plate bending rigidities, Ce is the 


xY 
tangent shear modulus, and I is the moment of inertia per unit length 
of plate. These properties are further discussed in Appendix B. Also 
in Equation A-35, w represents the deflection of a point normal to the 
middle plane of the plate, dw represents a virtual deflection in this 
direction, x and y represent Cartesian coordinate directions, and 
differentiation is indicated using comma notation*’. 

In Equation A-35 the first integral represents the virtual 
work resulting from the strain energy of plate bending while the second 
integral represents the virtual work done by the in-plane stresses 
which act during buckling, 

Once a plate buckling condition has been formulated into a 
mathematical expression using an energy method, one may try to obtain 
an exact mathematical solution or an approximate solution. Because of 
the complexity of the present formulation, solutions are obtained using 


the Rayleigh-Ritz technique’®, This method has also been applied quite 


successfully by other investigators’’?*7°"®?*975°, 
A basic assumption of this technique is that the displacement 


field describing a buckled shape can be expressed in terms of a set of 


Ps ; : A Sis 
assumed shape functions and corresponding coordinate displacements~~. 
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Together these must form a set of kinematically admissible generalized 
coordinate displacements which requires that the assumed displacement 
function satisfy the boundary conditions of the physical problem. The 
development of appropriate shape functions is discussed in a later 
section. However, it is appropriate here to state that a displacement 


function can be defined as follows: 
w = £<o>{0} Ge) 


where {6} is a vector of displacement coordinates defined at distinct 
nodal points in a cross-section (Figure 3.4) and <d> is a set of shape 
functions which interpolate the coordinate displacements over a cross-—- 
section. The function, f, is a shape function which interpolates a 
set of cross-sectional displacements over the length of a member. By 
substituting this assumed displacement function into Equation A-35, 

the problem is reduced from a continuum problem, with an infinite 
number of degrees of freedom, to a problem with a finite number of 
degrees of freedom equal to the total number of coordinate 
displacements defined at the nodes. As a result, a system of algebraic 
equations, rather than a partial differential equation, must be solved. 
This procedure is carried out in detail in Appendix A where it is 


shown that the problem of local buckling reduces to the form: 
[tx}-atK,]]{6} = (0) ee 


where [K] is a bending stiffness matrix depending on material properties 
and plate dimensions, [KAJ is a geometric stiffness matrix depending on 


the distribution and magnitude of applied in-plane stresses, and i is a 
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multiple of the applied loading which causes buckling. 

The expression in brackets represents the reduced stiffness 
of a plate which buckles when, depending upon the value of i, the 
determinant of the reduced stiffness matrix beomes zero. The 
corresponding values of A and {6} are referred to as the eigenvalue 
and eigenvector, respectively. The eigenvalue in this case is the 
critical stress at which a plate buckles and the eigenvector defines 
the critical buckled shape. 

The solution to the buckling problem as presented herein 
reduces to the problem of extracting the lowest eigenvalue from the 
system of equations expressed by Equation A-51. If, in this equation, 
[K] and [K,] are each of dimension n x n, then the characteristic 


°° of the reduced stiffness matrix will have n roots, each one 


equation 

corresponding to an eigenvalue of the system. However, in problems 

concerning statical stability only the lowest of these roots is of 

interest. A method that is commonly used to find the smallest 

eigenvalue of a system, and also one that is readily adaptable to 
50 


electronic computation, is that of inverse matrix iteration” . 


Usine this technique, Equation A-5] 1s first rewritten as: 


[K]{e} = Atk} {85 
(31/20 


Multiplying both sides of Equation 3.2 by the inverse of [K] and 


dividing by A result in: 


[KI IK] te} = $16) (3.3) 
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i OlP= aio) Ch) 
where, 

[2] = [kL] Gus) 
and, 

a (3.6) 


In the solution of Equation 3.4, an initial shape vector, 
{0} is assumed and this vector is multiplied by matrix [E]. The 
resulting vector, {6},, is then normalized by dividing by the highest- 
valued element of the vector. The process is then repeated with this 


new normalized vector. It has been shown?® 


that, after several cycles 
of iteration, W converges to the highest eigenvalue of the system. As 
a result, the lowest critical value of } = 1/w is obtained for the 
original system, Equation 3.2, and the corresponding eigenvector gives 
the critical buckled shape, 

In certain eigensystems the smallest eigenvalue may appear 
as a positive value or a negative value. For example, the bending 
stress required to cause local buckling in a doubly-symmetric W shape 
may occur as a positive or negative eigenvalue of the associated 
eigensystem. This result is due solely to the symmetry of the system 
and the positivity or negativity of the eigenvalue has no physical 
significance. It does however result in considerable mathematical 


difficulty in achieving convergence during matrix iteration. This is 


because the rate of convergence is proportional to the ratio of the 
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lowest eigenvalue to the next higher wales cs and fortvaluestor this 
ratio approaching 1.0 the rate of convergence is very slow. For 
problems of the type described above, the first two eigenvalues of the 
system are equal but of opposite sign; that is, w,=-w,. Therefore, 


ak 2D 


the rate of convergence is w/w = -1.0 and the technique will not 


Z 
converge. 

foo avold this probiem, avconstant shift, i) is applied to all 
of the eigenvalues of the system, in which case the rate of convergence 


is proportional to (w -H) / (ws HY) < 1.0 and the method will converge. 


Applying a shift, yp, to the system, Equation 3.4 becomes: 


[El{e}—wie} = wib}—i16} Cam) 


oa 


[fel-ulr]] {0} = w,.6) (3.8) 


where We = (ju and [I] is an identity matrix of. the same dimension as 
[E]. It has been shown’? that the eigensystem defined by Equation 3.8 
has the same eigenvectors as those defined by the original system 
described by Equation 3.4, The relationship between the eigenvalues 


of the two systems is given by: 


it 
S 


WU a (3.9) 


or, 


Ss 
TT 
~|h 


eeu Geto) 


In subsequent sections, the eigenvalue problem is 


formulated in such a way that only the smallest positive eigenvalue is 
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required. Although the eigenvalue shift technique increases the rate 

of convergence in most cases, it does not guarantee the convergence will 
be to the lowest positive root. In some cases it is found that the 
process converges to the lowest negative root. It is desirable there- 
fore to have a method for eliminating certain eigenpairs from the 

system so that inverse iteration can be repeated to determine the 
lowest positive root. The method used to do this in the present 
analysis is referred to as a sweeping technique oo. 

Since the eigenvectors, {ot}, of an eigensystem are linearly 
independent®®, they provide a vector basis for the system, and any 
starting vector, sel may be expressed as a linear combination of these 
eigenvectors, that is: 


nN 
eee Grit) 


If it is desired to remove the kth eigenmode from the system, a starting 


vector should be selected as follows: 


icy elo iei (3.12) 


The value of Ch is found by pre-multiplying Equation 3.11 by <o>[K oJ and 


using the orthogonality properties”° of eigenvectors. Doing so, results 
240% 


<g>, [K,]{8} 


@ = 
F <o> [Kg Ito}, (3.13) 


Substituting this value into Equation 3.12 gives: 
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{6}, <o> [KJ 


{e} 
: <b> [K 10}, 


M 
m1 
ns 
(4 

| 


{6} 


S 8 
[ 1,4 } 12) 
where ist, is the desired sweeping matrix. Using this value of fo 
as a starting value, Equation 3.8 becomes: 


[ie = ult]][s], (9) see) Gas) 


which represents an eigensystem with the kth mode removed. In the 
analytical technique presented herein this method is used to remove 
negative eigenvalues and corresponding eigenvectors from a system. It 
has been found that only one application of a sweeping matrix is 
required for the majority of cases where the first eigenvalue 


calculated is negative, 


we bitects or initial. Imperfections 


As described previously, the present analysis uses a precise 
mathematical formulation to describe the local buckling condition. 
This implies that the maximum strength of a plate or system of plates 
isimited only by cyitical local buckling and this 1s the basis on 
which the formulation is made. The assessment of the effects of initial 
imperfections on the buckling strength of plates is also based on this 
type of formulation. 


It is assumed for this purpose that 16} Lsparset of inttiad 
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coordinate displacements defined at the nodes of a plate system. 
Using the same interpolation functions as those in Equation 3.1, 


initial deflections may be described by: 


ons E<g>t0} (3716) 


and additional deflections due to applied in-plane loads are given by: 


4q 
iH 


£<o>{6} 3.27) 


Therefore, the total out-of-plane deflection at any point is given by: 


E<o>{@ J+E<>{6} (3.18) 


To evaluate the effects of initial imperfections, the appropriate 
values of deflection are substituted into the buckling condition, 
Equation A-35. Since the first integral in Equation A-35 represents 
the work done by bending of a plate from its initially deflected 
position to its buckled shape, the net deflection, w-w., must be used 
to evaluate this integral*. The second integral in Equation A-35 
represents the work done by the in-plane forces during buckling of a 
plate. It can be evaluated by calculating the work done by the in-plane 
forces acting through displacements caused by initial imperfections 
only, The net work is then obtained by subtracting this value from the 
work done by the in-plane forces acting through displacements caused 

by the total deflection of a plate. By proceeding in this manner, and 
using the concepts of bending and geometric stiffness matrices, as used 


in Section 3.4, Equation A-35 results in the following set of equations: 
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[teI-atkg) | (63 = ALK, ]{8,} (3.19) 


From this relationship it can be seen that the effect of 


initial imperfections is to simulate an equivalent lateral load of: 


UE ie | ee (3.20) 


The effect of this equivalent lateral load is to cause deflections 

to increase gradually as the in-plane loads are increased. However, 
the mathematical definition of buckling can be expressed by 

setting the determinant of the reduced stiffness matrix equal 

to zero. Since the reduced stiffness matrix formulated with 
initial imperfections included is identical to that for the case of a 
perfectly straight plate, initial imperfections do not affect the 
value of the critical buckling load as defined herein. As the in- 
plane loads increase, lateral deflections increase gradually and as 
the critical buckling load is approached the lateral deflections 


become asymtotic to the critical buckled shape. 


3.6 Coordinate Systems 


In the formulation of the theory for local buckling, the 
shape functions are referred to a system of natural coordinates: =. 
Figure 3.3. illustrates the relationship between a natural coordinate 
system for a plate of length %, and a Cartesian coordinate system. 
Pointe 1, 2, and 6 im this fisure are referred’ to as nodes at which 


the coordinate displacements comprising the vector, {6}, are defined. 


At these nodes the elements of {6} may represent translations, 


anes on 
| bis _ asia ‘usenymlte wi Be 5nESIa8 
a . aya “(| - 


« - | a a 7 
_ : ; 
rmobiael tat spam oF ai sedi Layste! sheleveips tat Ted hie sat 


ne Edensteok Bia-ahncl weelqen) ahi Fe dileopasg , 


xé Seeserats oes sbPisSrd lo AOATabaes cor sancataan th 


Taube” — or Aten bee all Tor Bhanteeanel ate 3 


ai barstiatot Saldetat seuAtilsa o-jubne tt Gel? 
A 20 SeR> Syd 404 tf Oo. faniaesot rr fedulonel eoi nasa olsiak 


: i 7 - a : 
fa voslde Jon 1b app ldastiugys (siuink ,etals ‘Waierte yPaaerza 
; @ ay 
<i aig GA ,Abaestl bGnits6 ae bar! grasagud -45 ijj0a off Gig fay 

sa Ena “ri TSrhbes Shae Ct: wc ise! tsi Ist: ‘) Seesgvu Peri af “ 


dud aestaeh fesvrtel Siff battsoreas zl SeOr | oP Patoul iueeeaae z | 
< 


ipbete Seldom! ivocsoo3 ai? id NIPORReR 
ime" ‘ ‘ste yeo), F 
i i \ , x ; : 
ofa) qpaidead Segal 292 eresiis ait te ool seonbapt aut 4 a 


2!)  sesenfimeouy igiutan 20 eries, 5 OF ere2s?, Hos ee 
__ saeeityean fagieer a: paerte: i fenaiysl 7, «fj eeperiaels ‘ees 
" naaeye ezheionaas wedaa332) =! Aa? Mats Bp aiaiu a ae 
een aes heassts: $75 Aes st nt Of one eo 
Sinany! ae wl any falsinian> patie see J 
Le 
ipaedies dnle AS} to esas ta % pe 
oo 


a 2 


Jag | 


rotations, curvatures, and higher order derivatives. Using these 
coordinates and an appropriate set of interpolating polynomials it is 
possible to define a set of shape functions at a cross-section for the 
flanges and web of a W shape section. 

Local natural coordinate systems for the flanges and web of 
a W shape cross-section as well as the corresponding node numbering 
system are shown in Figure 3.4. Each coordinate displacement defined 
at a given node is interpolated by a polynomial function over the 
cross-sectional edge of a flange or a web. The order of each such 
ee aecins polynomial is equal to the number of coordinate 
displacements that must be interpolated for a flange or web. Thus, 
for example, if a translation and a rotation are defined for each of 
three nodes of a flange, a quintic polynomial interpolating function 


is used for each nodal displacement. 


3.7 Flange Shape Functions 


Polynomial functions used to interpolate coordinate displace- 
ments along a plate edge at a cross-section may be obtained by a 
matrix technique* or by inspection, Since the latter method is used 
herein it is described in detail below. Quintic polynomials are used 
to interpolate the nodal displacements for flanges at a cross-section. 
At each of three nodes on a flange, a translation and a rotation are 
interpolated. These interpolation functions and their shapes are 
shown in Figure 3.5. 

The method of inspection for obtaining shape functions is 
presented as an illustration for the particular case of interpolating 


a translation at node number one of Figure 3.4. Since a total of six 
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coordinate displacements are defined (a translation and a rotation 
at each of three nodes) a fifth order polynomial is first assumed as 


follows: 


S(t) = 0° (C-1) "(atte ,) (3.21) 


A shape function evaluated at the coordinate displacement being 
interpolated must have a value of 1,0 and must have a zero value when 
evaluated at all other coordinate displacements. The first factor of 
the above function ensures that the translation and rotation at 7T=0 
are both zero. The second factor ensures that the translation and 
POtation at. G=li are zero. The third factor as chosen so that the 
function will be a fifth order polynomial. Also, the constants, 

a, and bo can be determined so that at T=-l, the rotation is zero and 
the translation is positive and unity. Evaluating ao and BS for these 
two conditions results in the function: 


152 2 
S(Z) = Fe (G1) (3044) G22) 


The value of this expression is positive unity at the 
coordinate displacement being interpolated while at all other coordinate 


displacements its value is zero. 


3.8 Web Shape Functions 


Octic polynomials are used to interpolate nodal displacements 
for webs at a cross-section. For the purpose of studying local buckling 
of W shapes, it is assumed that the line of intersection of two plates 
at a flange-to-web junction does not translate during buckling. This 


line appears as a nodal point on a cross-section of a W shape and the 
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corresponding translations are not interpolated for the flange or web 
since they have zero value. Therefore, octic polynomials are used to 
interpolate rotations and curvatures of a web at its extremities and 
translation, rotation, and curvature at its center for a given cross- 
section. The interpolating polynomials for webs are obtained by the 
method of inspection as described previously for flanges. The 
polynomials and their corresponding shapes for coordinate 


displacements of a web at a cross-section are shown in Figure 3.6. 


3.9 Longitudinal Shape Functions 


A buckled shape which has been established at a cross-section 
of a W shape member must be interpolated over the length of the member. 
For plates simply supported at the loaded edges and subjected to 
uniaxial stresses, it has been determined*’® that the buckled shape in 
the direction of applied stress occurs in the form of a sine wave. 

This result is inherent in the nature of the solution to a partial 
differential equation which defines the plate buckling of a simply 
supported rectangular plate subjected to uniaxial stresses. 

For this reason, and because the Rayleigh-Ritz solution is 
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not very sensitive to the actual shapes used 
included as a principle component of longitudinal shape functions used 
in this study. As shown in Figure 3.7, the effect of various boundary 
conditions can be accounted for by multiplying a sine function by a 
polynomial function which adequately describes the boundary conditions. 
Essentially, this technique applies an envelope to a sine function. 


The general form of a longitudinal shape function is 


P(€)Sin mm&. In this form P(€) represents a polynomial envelope of a 
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sine function where m is the number of half sinewaves that occurs along 
the length of a plate during buckling. The complete buckled shape of 


a plate component of a W shape is given by: 


w = P(&)Sin mn&<o>{6} C3225) 


As described previously, <o>{6} describes the buckled shape of a flange 
or a web at a cross-section. Each polynomial of <d> is a function of Z 
when referring to a flange, and a function of n when referring to a web. 
€ is the natural coordinate in the longitudinal direction of a member. 
The natural coordinates, €,7t, and n and the corresponding natural 


coordinate systems are defined in Figure 3.8 for a W shape. 


3.10 Integration of Cross-Sectional Shape Functions 


As is evident from the formulation presented in Appendix A, 
extensive use of integration and differentiation of shape functions is 
required. Furthermore, shape functions expressed in terms of natural 
coordinates must be integrated and differentiated with respect to 
Gartesian coordinates. The function in Equation 3.22, for example, 
may be integrated as follows: 


py aL 


| S(T)dy = B | S(o).dc 
) 0 (3224) 


In this operation, the limits of integration and the differential 
element dy in the Cartesian coordinate system were transformed to a 


natural coordinate system using the relationship, 
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as defined in Figure 3.5. Differentiation of the function in Equation 


3.22 proceeds as follows: 


9S(o) _ 9S | 9h _ 2 38 
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oy OC. dy C20) 


WX 


where the chain rule of differentiation’® 


and the relationship of 
Equation 3.25 were used. 

As indicated by Equations A-42 to A-51, it is necessary to 
integrate many different functions and products of functions in order 
to obtain a solution for a given problem. These operations are best 
performed by computer if they are first expressed in terms of 


matrices. As an illustration of the technique, the following integral 


from Equation A-48 will be considered: 


[¢,] = | ice Ome ey 
2 ae A-48 


A set of shape functions, {6}, may be expressed by: 


LOie= (6 )1a} (2275) 


where [C] is a matrix of constant coefficients of shape functions and, 


ese = 


C (3.28) 


for a quintic polynomial. Differentiating Equation 3.27 twice with 
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where the relationship given by Equation 3.25 was used. 
Using the relationships of Equation 3.29, the integrand of 


Equation A-48 may be written as follows: 
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The integral of Equation A-48 may now be evaluated by integrating each 
term Ip the matrix of variables im Equation 3.30, to obtain Ehe 


following: 


y 
0 0 do 
0 0 0 0 
Nee sae eae eriey 
*2 [Cc] 0 0 6c¢ ar ise’ (Ar? ‘fale 
5 
0 0 8x ier? 240° 407° 
pee 6 
OO) 10n) 245 §40c (400/7)c’ 
Q 
1 
(3.31) 


where the elements of the matrix of variables are to be evaluated for 
the integration limits, aT and hy This method permits the use of 
computer techniques to obtain the integral of functions between any 
limits of integration. This is important because, depending on the 
level of stress and the stress distribution, longitudinal strips of 

a flange or a web may be elastic, yielded, or strain-hardened. There- 
fore the integration over a cross-section of a plate component is 
performed in a piecewise fashion between the limits of these zones so 
that the differing material properties may be included in the evaluation 


of a stiffness matrix. In this way also, abrupt changes in stress dis- 


tribution may be accommodated in evaluating a geometric stiffness matrix. 


SLUT eentes ration. OF Longitudinal Shape Functions 


As shown in the formulation of the analytical technique in 
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Appendix A, extensive integration is also required for longitudinal 
shape functions. For example, factor FE in Equation A-42 is 


expressed as: 


(A-42) 


AS dtscussed an Section 3.9, ithe function, £(6), may be of the form, 


P(E) = Pe) “Sin Gnire) SED) 


where P(€) is a polynomial function. As a result, the functions to be 
integrated over the length of a member may be quite complicated 
expressions depending on the order of the polynomial, P(&), and 
therefore a numerical integration technique is used. The length of a 
member is divided into a number of equal intervals over which Gaussian 


quadrature”° 


is used to integrate a function. The total integral over 
a length is obtained by adding together these sub-integrals. The 
number of intervals used for a given length is equal to the number of 
half sine wavelengths along a member and a 6-point Gauss integration”? 


technique is performed for each interval, 


3.12 General Procedure for W shapes 


The procedure described in Section 3.4 is used to develop a 
bending stiffness matrix and a geometric stiffness matrix for the web 
and each flange of a W shape. These represent stiffness submatrices 
that must be assembled into overall stiffness matrices for an entire 
member. In assembling the matrices, compatibility between the 


flanges and web at a cross-section is maintained by enforcing zero 
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relative rotation between the plate components at a web-to-flange 
junction. 

Figure 3.9 illustrates the node numbering and coordinate 
displacements for a typical W shape cross-section. The notations of 
this figure will be used in describing the assembly of a stiffness 
matrix. Since a bending stiffness matrix and a geometric stiffness 
matrix are both assembled in exactly the same manner the procedure is 
illustrated for a bending stiffness matrix assembly only. In Section 
3.4 it was shown that a plate buckling problem reduced to an 
eigenvalue form as shown by Equation A-52 which can be rewritten as 


follows: 


(3.33) 


The bending strain energy of a component plate during 
buckling results in the term on the left hand side of this equation 
Therefore, assembling the stiffness submatrices of the two flanges and 
the web of a W shape section to obtain the assembled stiffness matrix 
is, in effect, equivalent to adding together the plate bending strain 


energies of the individual component plates. Using the notation given 


in Figure 3.9, the left hand side of Equation 3.33 may be written as; 


(3.34) 
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for a lower flange; 


Cl Oe ation 
w 


C3500) 


for a web; and 


[K]{6} = [K ]¢ uf 


(3250) 


and U snepresencrune rotations or 


for an upper flange. The slopes uy 5 


the flanges and web at the web-to-flange junctions of a W shape cross- 
Section. ihe fact that uy is common to Equations 3.34 and 3.35 and us 
is common to Equations 3.35 and 3.36 ensures compatibility (in this 
case, rigidity of attachment) between the flanges and web. Therefore 


in assembling the stiffness submatrices, [K,], [K J. and [K J, to obtain 


il 
the total stiffness matrix of a W shape, stiffness elements of the 


submatrices corresponding to u, and us must be added directly. This 


procedure is illustrated schematically in Figure 3.10. 
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3.13 Iteration on the Number of Wavelengths 


The vector of coordinate displacements, {6}, represents the 
amplitudes of the shape functions defining the buckled shape of a 
cross-section. This vector is automatically obtained as a natural 
part of the process of matrix iteration®® for each assumed value of m, 
where m is the number of half sine wavelengths of buckling along the 
length of a member. The correct value of m is that value for which the 
energy of a system is a minimum since this represents the lowest energy 
state of the buckled configuration? 

In an actual solution, a starting value of m= 1 is assumed. 
This value is successively incremented in steps of unity and at each 
increment a matrix iteration is performed to determine an eigenvalue 
and the corresponding critical buckled shape of a cross-section. Asm 
is incremented, the critical eigenvalue continues to decrease until a 
point of minimum potential energy of a system is reached. Thereafter, 
increases in m cause an increase in the potential energy. The correct 
value of mis that value for which the potential energy of the system 
is a minimum and the corresponding eigenpair gives the critical stress 


and the buckled shape of a cross-section, 


3.14 Effect of Residual Stresses 


Residual stresses acting on a W shape section alter the 
characteristics Of a geometric Stifiness matrix and therefore initluence 
the value of a critical stress. In order to include this effect in 
fhe analysis, a residual strain pattern, as shown in Figure 3-11, is 
assumed. Such a pattern allows for a fairly general representation and 
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assessing the effects of residual stresses. At the outset of a 
problem, values must be specified for Eo: the residual tension strain 
at the lower edge of a web, E45 the residual compressive strain at 
mid-depth of a web, and Eps the residual tension strain at the upper 


edge of a web. The values of €, and € 


l 5? the residual strains at the 


lower and upper flange tips respectively, are then determined using 
the following conditions of equilibrium for a cross-section subjected 


EO Gesidual stresses: 


i] 
io) 


LE (ey) 


LM = 0 C3238) 


Equation 3.37 is an expression of translational equilibrium of a cross- 
section in the longitudinal direction of a member, and Equation 3.38 
expresses equilibrium of a cross-section with respect to rotation about 
an axis perpendicular to the web. 

The residual strain pattern of Figure 3.11 may be transformed 
into a stress pattern using a simple stress - strain relationship as 
shown in Figure 3.2. The forces and moments due to the residual stresses 
are obtained by integrating the effects of the stresses over the web and 
each flange of a W shape. Performing this integration, Equations 3.37 and 


3.38 may be written as follows: 


LEo= 24 (55-9,) + 2A, (5, -T5) _ A (25,-0,-0,) = 0 
C3239) 
and, 
Ae h 
YM = 34 (60.,-50,-4) ap A, (o,-9,) = 0 


(3.40) 
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where, 0, (i=1,2,3,4,5) are stresses corresponding to the strains 

€, (i=1,2,3,4,5), AS is the area of a lower flange, AL is the area of 

an upper flange, A is the web area, and h is the web height. 
Solving Equations 3.39 and 3.40 simultaneously and using 

Figure 3.2 to transtorm from stress tol strains, results in the 


following values: 


A 
W 
€, = €, —-=-— (€.-6€,+5€E,) 
ib ee I ot eae 
as 
eee 6504 
a 12A, on 3 7 Es 


In subsequent formulations, residual strains are added to applied 
strains so that their effects on yielding and strain-hardening as 
well as their effects on decreasing a geometric stiffness matrix are 


included directly in the analytical technique. 
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Figure 3.2 
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Figure 3.1 Idealized Cross-section 


Idealized Tri-linear Stress-Strain Curve 
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Figure 3.3 Relationship Between Cartesian and Natural Coordinates 
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Figure 3.4 Local Coordinates and Numbering System 
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Figure 3.5 Shape Functions for Flanges 
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Figure 3.6 Shape Functions for Webs 
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Figure 3.7. Longitudinal Shape Functions 
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Figure 3.9 Node Numbering and Coordinate Displacements 
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Residual! Strain Distribution 


Figure 3.11 
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Chapter 4 


ANALYSIS FOR COMBINED AXIAL COMPRESSION AND BENDING 


4.1 Introduction 


In Chapter 3 a general formulation was presented for the 
analysis of buckling of plates subjected to piecewise linearly varying 
uniaxial stresses. The inclusion of residual stresses was also 
discussed and it was stated that the method could be applied to 
buckling in the elastic as well as the inelastic range. A W shape 
subjected to combined axial compression and strong-axis bending is 
composed of three uniaxially stressed plates (two flanges and a web). 
Because of the presence of residual stresses, uniaxial stresses on a 
component plate are piecewise linear at a section. The problem of 
local buckling of a W shape section is formulated by combining the 
effects of the individual component plates to obtain the total 
stiffness matrices for a member. In this chapter the procedure is 
explained in detail for the general loading case of a W shape section 
subjected to axial compression and strong axis bending combined. The 
formulation for the general case may be applied to a particular case 
of pure axial load or pure bending by setting the applied bending 


moment or the applied axial load equal to zero, respectively. 


4,2 Assumptions 


In Appendix A, a plate buckling condition is developed for a 


single uniaxially stressed rectangular plate. This buckling condition 


49 


: : 7 a « 
ener GATPae MND 2A), eee a t 


7 


- 5 
aft.26) Petesrerg ase as e4tatid? fessute at se2quitl: ne - "i: 
endvies | yfasanti, S800i0)\ qa ston fley 29257, Ue entived ie 7 vias 
sets 2hW 2086977? faphitag?. 14 gain) ret Bie essen £ bas ber 

49 53) feqe sd Bieds otTen-ar) sol's Wetais aay +) bee h 

susuia GA 4eehd dhtualant-olt.as lisw =® 2haeeis off me 


ai unrtrey qeatenei ia bas o8fee tire ‘9S gopifump of’ Bag 


(dow @) jie sagnel* owt) eSreiy papesgye 7 iin Mei eee agent 
aoe’ aaaalcte letkaltu, sseeazae Jap? lesy Io a®iieegiyp afd, Ie ea aoee 
' 
p ise —< 
to mason aT (notstsé(s fs veel)  aaleeeste 29a Graae ‘] 


afl gnzeienns wi taielieii = 14 xy hte’ We) 6 snrlaswd ‘5c 
fudge 2)\2\ W2@s0Gc° 083: 287 rl) J esHey wihéviles st 26 678 

4) siwbsaccwg sti teQeeto lei nt «|. ado es te? gente eee tye 
ml3n56@ ancile 7 >= 146 Apes Bolbs i farsrag al) Toi tPagab a ne 

alll: \Aentdmmcz Ma aed Btee acat i: é -Iwiteensaney Dehasn 

~ S624 iefusizise S G3 Wil aos ec Vex See ‘og gaa ag) a} 


artared Csilqas gilt quistss. v2 on lisan Sig, seen shee 


ov iaV2Aeaot), tad of laces af (aite se) logs) aioe 


2.90% Satiieval of anladbres crite sosiag, mA ne breage: of 


sey outa! gnditsed ect, ., wiain relegesucay Seneeria! ee i 


50 


is derived using the principle of virtual work and it is applicable 
to the elastic and inelastic ranges of stress. In addition to the 
usual assumptions of plate buckling presented in Appendix A, the 
following assumptions applicable to local buckling of a structural 
steel W shape section are made: 

1. The member is loaded in such a way that all longitudinal 
fibres are subjected only to uniaxial stresses. 

2. The idealized stress - strain response shown in Figure 3.2 
applies for each longitudinal fibre in a cross-section. 

3. The buckling condition expressed by Equation A-35 is 
applicable to material which is elastic, yielded, or 
strain-hardened. 

4. Shape functions for a cross-section are continuous across 
boundaries between elastic and yielded material and 
between yielded and strain-hardened material. 

5. Local buckling of component plates may occur when a cross- 
Seccron 1S an any one Of the Lollowing “strain ranges: 
(a) fully elastic range 
(b) partly elastic and partly yielded range 
(c) fully yielded range 
(d) partly yielded and partly strain-hardened range 
(e) fully strain-hardened range 

6. Member failure occurs when a plate component of a 


cross-section buckles locally. 
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4.3 Stiffness Matrix Formulations 


ao. introduction 


In the following sections, stiffness submatrices are 
formulated for individual plate components of a W shape. An applied 
uniform axial strain is superimposed on a general residual strain 
distribution such as that shown in Figure 4.1 where €, G=1,2,3,4,5) 
are residual strains, and ES is an axial strain. A bending moment 
Strain, Ey is then added. The resulting total strain distribution 
is used to determine the stresses on each component plate as well as 
the extent of yielded and strain-hardened regions within a plate. 
Stiffness submatrices are formulated for each plate component for a 
general case of material being partly elastic, partly yielded, and 
partly strain-hardened. The component plate stiffness submatrices 
are then combined as described in Chapter 3. 

As previously mentioned, it is assumed for the purpose of 
clarity, that a section is oriented with its web in a vertical plane. 
Furthermore, it is assumed that the direction of an applied moment is 
such that it tends to place the upper flange in compression and the 
lower flange in tension. As a result of this assumption, the upper 
flange will always be in compression under the actions of the applied 
axial compression and bending loads combined. The lower flange, how- 
ever, may be in tension when the axial load is low compared to the 
flexural load or in compression when the flexural load is low compared 
to the axial load. In the latter case, the general analysis of a 


lower flange is identical to that of an upper flange in compression. 
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4.3.2 Application of Incremental Bending Strains 


In this analysis of local buckling of beam-columns, it is 
necessary to apply additional increments of bending strains to a 
cross-section. Before an increment is applied, a cross-section may 
be partially yielded or strain-hardened as a result of previously 
applied strains. Before additional bending strain increments can be 
applied it is therefore necessary to update the location of the 
neutral axis. 

Figure 4.2(a) shows a cross-section which is partially 
elastic and partially yielded as a result of a total strain 
distribution such as that shown im Pieure’ 4,0. The neutral axis is 


located at a distance, y from the mid-depth of a web. This location 


? 
is determined from the requirement that a cross-section must be in 
equilibrium under the action of applied loads. Once the neutral axis 
has been located the bending strains, Ea: at mid-depth of a web, and 
Ep at the lower edge of a web may be determined from the strain 
geometry. 


Referring to Figure 4.2(b), the following expressions for EO 


and ey may be obtained: 


Ss = x Se 
C 2y_,-h] ~b 


(4.1) 


where h is the web depth and ¢€, is the applied compressive bending 
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In these relationships EO and Ey are given as functions of the applied 


compressive bending strain, € Thus the distribution of incremental 


b: 
bending strains is completely specified when a value of the applied 
strain, EM is specified. In subsequent formulations an analytical 


technique is set up so that €, is an eigenvalue which corresponds to a 


b 


Gririvcal buckline strain. 


4.3.3 Stitfiness Submatrices 


In this section, bending and geometric stiffness submatri- 
ces are formulated for individual plate components of a W shape. The 


stiffness matrices, [K] and [K are formulated separately for a 


sik 
compression flange, a tension flange, and a web. For the purpose of 
analysis only, a web is considered to oeueiiet of two parts; the lower 
half of a web between nodes 3 and 4, and the upper half between nodes 
4 and 5 as shown in Figure 3.9, Chapter 3. Because the origin of 
decal coordinates sissat node 4 of a@ web, this particular division 
simplifies the analysis somewhat with regard to integration of 
piecewise asset aes Functions alone its heioht. 

Equations A-53 and A-54 are expressions for bending and 


geometric plate stiffness matrices, respectively. These expressions 


are repeated below for ease of reference: 


Vga al CA=53) 


(A-54) 
where i = 1,2,3,4 and repeated subscripts indicate summation in 


Equation A-53. In this expression, Boo) are integral matrices as 
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defined by Equations A-47 to A-50, and F are material constants as 
defined by Equations A-42 to A-45. The values of Pe depend on whether 
the material is elastic, yielded, or strain-hardened. In Equation 
A-54, F. is a constant depending on the material thickness and is 
given by Equation A-46, and [o] is an integral matrix as defined by 
Equation A-51. 

Partial yielding or strain-hardening of a cross-section 
results in non-uniform material properties and stresses defined 
piecewise over a section. Therefore, the integral expressions 
of Equations A-53 and A-54 are also er ined piecewise over a section. 
The limits of integration correspond to the locations of material 
boundaries between elastic and yielded material and between yielded and 
strain-hardened material within a plate cross-section. Therefore, in 
order to carry out the integration required to determine [K],it is 
necessary to locate boundaries corresponding to material discontinuities 
within a plate cross-section. The evaluation of [K,] can be made once 
the stress discontinuities and stress distributions are determined for 
a plate cross-section. In the following sections these quantities are 
evaluated and explicit values of [K] and [KJ are determined for each 


plate component of a W shape. 


i.o-.0.. Compression Flange 


The distributions of strain and stress for a compression 
flange subjected to combined residual, axial, and flexural stresses are 
shown in Figure 4.3. In Figure 4.3(a), Ee. is anvaxial straia, Loa 
bending strain, Ey is a residual tensile strain, ce. is a residual 


compressive strain, oe Ls) a yield strain, and ae is a strain-hardening 
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strain. The corresponding stresses shown in Figure 4.3(b) are derived 
from the strain diagram according to the stress — strain relationship 
defined in Fisure 3.2. In Figure 4.3(6), si Sta) 3 ee Oa are 
stress components and oe and Cs imimetural, coordinates, “arerthe 
locations of the material boundaries between elastic and yielded and 
between yielded and strain-hardened material. 

The values of a. and on are isieted in Table 441). for 
various levels of strain. The second column of this table indicates 
the material condition for the corresponding range of strain indicated 
in the first column. For example, for the second strain range 
indicated the material is partially elastic (e) and partially yielded 
(y), and for the fifth strain range indicated the material is fully 
strain-hardened (s). The stresses defined piecewise for the various 
stress regions of Figure 4.3(b) are defined in Table 4.1(b). In this 
table. Ls a natural coordinate as indicatea in Figure 4.0, Eois the 
elastic modulus, Ee Ls the Slope of the yield portion of a stress — 
strain curve, and Est is the strain-hardening modulus. 

Using the limits of integration, O and Os as given in 
Table 4.1(a), and expanding the expression in Equation A-53 over 
the non-uniform material regions, the stiffness matrix for a 


flange in compression is given as: 
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where subscripts, e, y, and s, indicate that material constants, Fos 
have elastic, yielded, and strain-hardened values, respectively. The 
limits of integration are shown as subscripts and superscripts on 
each integral matrix, and double subscripts, i, indicate summation. 

The geometric stiffness matrix for a compression flange is 
obtained by substituting the stresses, S5 pee Om 
Table 4.1(b) into Equation A-54 and integrating between the appropriate 
limits defined in column one of Table 4.1(b). The following expression 
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where [ce] issusea to imdicate that matris, [oo], is multiplied by 
natural coordinate, ©, before integration is performed. This accounts 


for linearly varying stresses on a pertion of a plate cross-section. 


Goosoe2) Lension Flange 


The strain and stress distributions for a flange in tension 
are shown in Figure 4.4. in addition to the previously explained 


symbols, Ej is the residual compressive stress at the flange tips and 
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a) is the residual tensile stress at the flange-to-web junction. The 
strain ranges and limits of integration corresponding to Figure 4.4(a) 
are listed in Table 4.2(a) and the corresponding stresses and stress 
regions illustrated in Figure 4.4(>) are Listed in Table 4.2(b).. 

The stiffness matrix for a tension flange may now be 
obtained by performing the integration in Equation A-53 over the limits 
indicated by Figure 4.4 and Table 4.2(a) and using the appropriate 


material constants, F.. The resulting expression is as follows: 


(4.6) 


The geometric stiffness matrix is obtained from Equation 
A-54 by substituting the stresses given in Table 4.2(b) and 
integrating over the appropriate limits as indicated in Figure 4.4 


and Table 4.2(b). The resulting expression is as follows: 
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4.3.3.3 Web — Tension Zone 


The general strain and stress distributions for the lower 
half of a web (loaded in the orientation described previously) are 
Pas 0 


shown in Figure 4.5. In this Ficure, Bae a 3? and B. in tie tural 
coordinates, locate the boundaries between elastic and yielded material 
and between yielded and strain-hardened material. These values are 
defined in Tables 4.3(a4) and 4.3(b) for the various ranges of strain 
indicated. The stresses corresponding to the stress regions 
indilcated, are listed in Table 4.,3(¢c). 

Referring to Figure 4.5 and Table 4.3 and proceeding in the 
manner described previously for the flanges, the bending stiffness and 


geometric stiffness matrices for the tension zone of a web are 


obtained as follows: 
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oo33.4 Web. = Compression Zone 


Because of the complex yield pattern possible under the 

actions of residual, axial, and flexural stresses combined, three 
cases must be considered for the compression zone of a web. 
These three cases correspond to the material condition at the center 
of the web which may be elastic, yielded, or strain-hardened at the 
time the incremental bending strains are applied. Each of the three 
cases is considered separately. 

The strain and stress distributions for the compression zone 
of a web when the center of the web is elastic are shown in Figure 4.6. 
In this case the total strain at a web center must not be greater than 


the yield strain, and therefore, 


(CASSIE) 


The material boundaries corresponding to the various ranges 
of strain possible are given in Table 4GvuCa) and the stresses 
corresponding to the material zones indicated in Figure “.6(b) are 
tisted in Table 4s.4(b)— Reterrine to Ficure 4.6 and Table 4.4. “and 


proceeding as described for the previous cases, the bending and 
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geometric stiffness matrices may be written as follows: 


z Carrels) 


and, 
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The center of a web is yielded when, 
© <€ re res. < € 
y fe (13) 


and the corresponding strain and stress distributions as well as the 
limits of integration and various material zones are described in 
Figure 4.7 and Table 4.5. Using the appropriate values obtained 
therefrom, the bending and geometric stiffness matrices for this case 


may be written as follows: 
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(G515)) 


The third and final case which must be considered for the 
compression zone of a web is that corresponding to the center of the 
web being in the strain-hardened condition. In this case, 

S <e sa © cr € 

a Cc 


St o 


(4.16) 


The corresponding distributions of strain and stress are shown in 
Figure 4.8 and the material boundaries and stress components for each 
region are given jin Table 4.6, The resulting expressions for the 


bending and geometric stiffness matrices are as follows: 
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Weal ioe ok + s,[no,]" 


7 (4.18) 


4.4 ltetative Technique 


In the solution of a particular problem, bending stiffness 
and geometric stiffness submatrices for each flange and a web are 
formulated as described in the previous sections. The global stiffness 
matrices are then assembled as explained in Chapter 3. In any problem 
of axial, bending, or combined loading, the required eigenvalue will be 
either ae the bending strain, or E. the axial strain. However, 
because of material and stress non-linearities over a cross-section, 
the bending stiffness matrix, [K], and the geometric stiffness matrix, 
[Ko are implicit functions of the eigenvalue strain. Therefore at 
each successive value of an eigenvalue strain, it is necessary to 
reformulate [K] and [KJ for that wparcicular value of Strain. Thusean 
iterative technique is required. 


As described in Chapter 3, an eigenvalue problem reduces to 
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follows: 


ts = 4 [Ke lie Seg 


e (4.20) 


where, 


(4,21) 


Im’ the solution of Equation 4.20. a value of (e, + 2) is 
assumed. Knowing this value, the elastic, yield, and strain- 
hardening material zones in a cross-section as well as the 
discontinuous stress distributions are fully defined. Therefore, 


[K] and [Ko J] are completely determinable and matrix iteration may 


O 
be performed to determine Ao: The selution to Equation 4.19 will be 


obtained when, 


In general, this will require the determination of several values of 
a by matrix, iteration. “Anvexact solution is obtained when the etesen— 
value, Ao? is equal to the assumed value of Ey ay aa In general, 


however, this will not be true, and, 
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from the exact value of (e€, + e.): Thus, the problem reduces to that 


b 


of finding a value of Me Suche that, 


(4,25) 


where e, is a small positive value which reflects the required 
Precision Of 4a solution. 


For the purpose of illustration, Figure 4.9 shows a graph of 


Ce. = re), (ey + e.)- In the iteration technique, an initial value 


of (e, + Ee.) is choosen so that Cs. Sets positive. Another value of 


(€ 


5 si E,? is found so that the corresponding value of OA, BN OY es 


negative. Once these two starting values have been found (by trial and 


Sjal 


error, if necessary) the method of bisection is used to determine a 


Velde (c= a) for which Ino -~ "| < e. Once the convergence 
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criterion is satisfied, the critical bending strain is given by: 


cr C4726) 


This general technique may be used for pure bending when 
oa 0, or for pure axial load when a. = O. In the case of axial 


compression and bending combined, Ee. is a constant value of axial 


strain depending on the magnitude of applied axial load. 
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Web (Case I - Center of Web Elastic) 


a 


BINGE” #agitr 


a 


test 243) > 4? M, + ¢ > ie) 
aie iil “4g? * '98 

at, =. ton ae a tes Pa ‘¢) 
anh = ad, = 


2 = .2 ,.@¢ 2 ie) 


* 


z shawty? td) 

: : f 
ake and elapse nin) A> tt) 2oteasih fice eseaaulg iw Lust 
(oigeett dei? te <sansy - 2 nati del 


i. 


¥ : - 
wT oa aoe nS 


70 


SS a a ee ee ee ee 


Location of Material Boundaries 


Material : 
Strain Range Condition Bo Bo 
Se AS 
Sas < or es, ARE lawn TE 
ane ae (e) Seo ene tow 
+e, < ete < 
Pe SER o SER? (e,y) eso) 1.0 
S Seas =e Se S18 He 
Pege- 2 chia (y,s) Sa =e = a : 
b 4 7p @. 3.) a 
Ga) Strains 
Stress Region Stress Stress Components 
A <A << + = 6 = at 
On0s nes 8, (y) s,ts4n Sy Spl ee a E3)Eo 
S, = (E,-€ -E37€, Eo 
a5 (ete +€,)E 
K ' = +6 -e,— 
Bo <i Ss 85 (e) Al Sy (e, Ee, €,)E 
Se = 0 +(e —-e. )Eot 
5 aS any, 
~_ + 
a8 ee €,E.. 
' = — = — 
) Se (s) S.+s Nn Se (Ee, om E, EE. 


(b) Stresses 


Table 4.5 Stresses and Strains for the Compression Zone of a Web 
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Table 4.6 Stresses and Strains for the Compression Zone of a Web 


(Case III - Center of Web Strain-hardened) 
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Figure 4.2 Flexural Strain on an Inelastic Section 


nap 


NLS 


N| a 


-Y; 


eG 


73 


gf 


vidi hai etl ratibseresine (a) 
ts: rary Operas es | 


el rarer wel) Sl 


neéeacineiont ns . Got weve, Carewea 


(a) Strain Distribution 


O=¢=+1 
ee ene en eg en) 1G 


a 


ia 0 


een = Cy eg 4 ee) C 


(b) Stress Distribution 


[Elastic (e) 
VA Nielding (y) 


En en a a 7 
Strain Hardened (s) 


Figure 4.3 Strain and Stress Distributions for a Flange in Compression. 
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Figure 4.4 Strain and Stress Distributions for a Flange in Tension. 
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Figure 4.5 Strain and Stress Distributions for Tension Zone of a Web. 
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Figure 4.6 Strain and Stress Distributions for Compression Zone of Web — 
(Case |- Center of Web Elastic) 
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Figure 4.7 Strain and Stress Distributions for Compression Zone of Web — 
(Case Il - Center of Web Yielded) 
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Chapter 5 
COMPARISON OF THEORETICAL PREDICTIONS WITH TEST RESULTS 


5.1. Introduction 


An analytical procedure for the calculation of critical 
loads causing local buckling of plate components of W shapes has been 
presented in Chapters 3 and 4. This procedure uses matrix techniques 
to predict critical local buckling loads which may occur either in the 
elastic or inelastic load region. Because of the large number of 
iterative calculations required it was necessary to use a computer 
program which was written for this purpose. In this chapter, 
theoretical results are compared with the results of laboratory tests 
performed on 57 specimens. These tests include six column specimens 
and six beam specimens tested by Haaijer and Thurlimann*®. Of the 
remaining 45 specimens, 4 were column specimens, 26 were beam specimens, 
and 15 were beam-column specimens all tested at the University of 
Meiperncea 1a ei In all cases, local buckling of plate components 


of W shapes was the principal point of interest during testing. 
eo werecrction Of BUCK ing Loads 


In the analysis of local plate buckling as presented herein, 
it is assumed that portions of a cross-section having strains higher 
than the yield strain, have effective material properties corresponding 
to those in the strain-hardening region. As mentioned previously, this 


assumption has also been used successfully by other investigators in 
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These material properties are presented in 
Appendix B and have values dependent on the elastic modulus, E, the 
strain-hardening modulus, Este and Poisson's ratio, Vv. Where these 
values are not reported for a given laboratory specimen, values of 


Be= 29,000 kei. E = 800 ksi., and Vv = 0:3 are assumed. Im the ease 


Se 
where a residual stress is not available, a value of 0.3 ve is assumed°” 
as a maximum value of compressive and tensile residual stresses and the 
distvibUELON Contipuration shown in, Pieure 3.1) 1s used. |For the 
specimens tested by Haaijer and Thurlimann, specific values of Dis D 

ah and Ce were reported for a value of Eee = 900 ksi. Consequently 


these values are used in the prediction of local buckling capacities 


for the specimens tested by Haaijer and Thurlimann. 


5.3 Column Local Buckling Tests 


Results of six column tests were published in 1958 by 
Haaijer and Thurlimann’. The specimens were designed to study the 
behaviour of W shape columns susceptible to local buckling beyond the 
elastic range. Each specimen was placed flat-ended between fixed 
plates in a testing machine and subjected to axial compression. During 
the tests, observations were made at each load increment to determine 
axial strains, web and flange deflections, and lateral movement. 
Column lengths varied between 23 and 32 inches while bvF,/2t varied 
between 40 and 56 for the flanges and hvF /w varied between 147 and 
265 for the webs. 

The resulting critical column loads at the point of local 
buckling for these tests are shown in Table 5.1(a). The predicted 


loads as determined from the analytical procedure presented herein as 
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well as the ratios of the predicted to the experimentally determined 
loads are also shown in this table. The letters, F and W in brackets, 
indicate the plate component (flange or web) which initiated local 
buckling in each case. 

In 1979 at the University of Alberta, G.L. Kulak tested 
four W shape column specimens for local buckling capacities. The end 
edges of the flanges and web of each specimen were rounded and fitted 
into grooved platens before being placed in a testing machine and 
subjected to axial compression. During the tests, local strains and 
plate deflections were recorded at various load levels so that a 
continuous monitoring of local, lateral and axial deflections was 
possible. The webs of all four specimens were proportioned to have a 
value of hvE L/w = 200. Specimen numbers 1 to 3 were 36 inches long and 
had a value of bYF //2t = 72 for the flanges. Specimen number four was 
24 inches long and the value of bvF /2t for the flanges was set at 100 
by milling the flanges to the required thickness. The results of these 
tests are presented in Table 5.1(b) where the values predicted by the 
analysis presented herein as well as the ratios of predicted to 


experimental values are also shown. 


5.3.1 Discussion of Column Test Results 


The ratios of predicted to experimental values of buckling 
loads presented in Table 5.1 vary between 0.97 and 1.08. It appears 
that there is better correlation of predicted and experimental values 
for Kulak's specimens than for those tested by Haaijer and Thurlimann. 
This difference in correlation for the two sets of test specimens is 


attributed to the fact that the test values for the specimens tested by 
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Haaijer and Thurlimann were scaled from published graphs whereas the 
measured values for the specimens tested by Kulak were directly avail- 
able. Although this is considered to be the main source of error, 
other sources of error that are considered to be applicable to all 


test results presented herein are discussed in Section 5.6. 


5.4 Beam Local Buckling Tests 


Theoretical values of critical moments causing local 
buckling in W shapes are compared with corresponding test results for 
32 beam specimens. Six beam specimen test results were obtained from 


the work of Haaijer and Thurlimann?? 


and twelve results were obtained 
from tests carried out by Holtz and Kulak+?’+*. The remaining 14 test 
results were obtained from experiments carried out by Lukey and 
Adams °°. 

The six beam sections tested by Haaijer and Thurlimann 
were identical to those tested in the column test series mentioned 
above. All beams were simply supported at the ends and loaded 


symmetrically by two concentrated loads so that local buckling could be 


expected to occur within the uniform moment region. Although the 


specimens were laterally braced failure was initiated by flange local buck- 
ling followed by some lateral movement between bracing points. It is to be 
expected that this combined failure mode affects the results predicted 
by the method presented herein although the extent of this effect is 
difficult to estimate. 

In table 5.2(a) bending moments at failure for each of the 
six specimens tested by Haaijer and Thurlimann are compared with those 


predicted by the analysis presented herein. As before, the letter, F, 


in brackets indicates flange local buckling and in this case also, the 
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letter, L indicates the presence of lateral buckling. The ratios of 
experimental to predicted moment values are also shown. 

In 1973, Holtz and Kulak’* reported test results for a 
series of ten compact beam specimens. During testing, all specimens 
were simply supported and loaded symmetrically with equal concentrated 
loads so that a uniform moment region existed between load points. All 
specimens were laterally braced at the load and reaction points so that 
the possibility of lateral buckling was precluded. Similar tests were 
performed on a series of two non-compact beams in 1975?°. 

Table 5.2(b) shows the critical buckling moments obtained 
for the bending tests performed by Holtz and Kulak. The corresponding 
moments as determined by the analysis presented herein are shown as well 
as the ratios of predicted to experimental values. The letters, F and 
W, indicate which element (either flange or web) precipitated the local 
failure. 

The beam specimen tests performed by Lukey and Adams*° were 
designed for the purpose of studying the relationship between flange 
slenderness ratios and rotation capacities of W shape beams subjected 
to a moment gradient. All specimens were simply supported and loaded 
with a concentrated load placed at mid-span with lateral bracing 
placed at reaction and load points. The analytical method presented 
herein was not developed to predict local buckling capacities of beams 
subjected to moment gradients. It was assumed, however, that a buckle 
would normally occur in a localized region at the location of maximum 
moment and that adjacent moment gradient regions would not significant- 
ly affect the critical buckling moment. For this reason it was decided 


to include the results of the beams tested under a moment gradient as 
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described above. 


The critical buckling moments for the specimens tested by 
Lukey and Adams are presented in Table 5.2(c). The critical element 
initiating local failure and the ratio of experimental to predicted 


buckling moment values are also indicated for each specimen. 


>.4.1 Duscussion of Test Results 


For the beam specimens tested by Haaijer and Thurlimann, 
the ratios of predicted to experimental values of the buckling moment 
Vany, between (0597 to W513 as oshown in able. 5.2(4a).. For five of the six 
specimens tested, the predicted values are within five per cent of the 
actual test values and for specimen number one the predicted value is 
slightly high. This slightly high value is not unacceptable, however, 
in view of the possible sources of error outlined in the next section. 

The correlation between experimental and predicted buckling 
moments for the specimens tested by Holtz and Kulak is generally quite 
good as can be seen from Table 5.2(b). The ratios of experimental to 
predicted values vary between 0.89 and 1.12. For ten of the twelve 
specimens tested, the predicted values of buckling moment are within six 
per cent of the test values. For specimen numbers 5 and 9 the error is 
+l2 per cent and -—liper cent respectively. “Again, in View or the pos- 
Sible sourees of error, as discussed im the next sectiom for all test 
series, these values are considered to be acceptable. 

For the specimens tested by Lukey and Adams, the ratios of 
predicted to experimental values of buckling moment vary between 0.87 
and 1.08 for eleven of the fourteen specimens tested. For specimen 


mumbers 2, 4, and 13, the’ ratios of predicted to experimental values 
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vary between 1.18 and 1.46 which must be considered as unacceptable 
correlation between test and theory for these three specimens. In 
attempting to explain this discrepancy between predicted and test 
values, it must be pointed out that all of the beam specimens tested 
eventually failed by a combination of local and lateral buckling. The 
laterally buckled shape, in plan view, was an S-shaped buckle symme- 
trically formed about the mid-span lateral brace. As a result, the 
final buckling mode was that of a combined local and lateral buckle. 

It 1s possible, therefore, that for specimen numbers 2, 4, and 13, 
additional lateral bracing placed at the quarter-points may have pre- 
vented lateral buckling thus permitting a failure by pure local buck- 
ling. Under such circumstances a higher test load would be obtained 
and a better correlation between test and theory would result. For the 
eleven remaining specimens, for which good correlation was obtained, it 
is assumed that this effect was not as significant presumably because 
the moment required to cause pure local buckling failure was either less 


than or equal to that required to cause a pure lateral buckling failure. 


5.5 Beam-Column Local Buckling Tests 


Local buckling tests on nine beam-columns using compact’ 
sections were carried out by Perlynn and Kulak**. An additional series 
of tests consisting of six non-compact’ beam-column specimens was car- 
ried out by Nash and Kulak?*. Each specimen for both test series was 
aligned in a universal testing machine which was used to apply the prin- 
cipal concentric load through steel rockers at the top and bottom of a 
specimen. A moment was superimposed by using a center-hole jack acting 


between loading arms rigidly connected to the ends of a specimen. 
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As the eccentric load was increased to provide an increment of moment 
the principal load was decreased so that the total axial load remained 
constant and equal to a prescribed value. At each increment of 
moment, web and flange deflections were monitored locally at various 
points along the specimen, and overall rotations and deflections were 
also recorded. Each specimen was laterally braced at mid-span and 
adequate torsional restraint was provided at the ends by means of the 
rigidly connected loading arms. 

The critical buckling moments for the compact beam-columns 
tested by Perlynn and Kulak are presented in Table 5.3(a). The ratio 
of the applied axial load to the yield load is also shown for each 
specimen. As mentioned previously, the critical element (either flange 
or web) which precipitates a local failure is indicated by the letter 
F or W. The predicted value of the local buckling moment as well as 
the ratio of predicted to experimental moment is also shown for each 
specimen. In a similar manner the results of the non-compact beam- 


columns tested by Nash and Kulak are presented in Table 5.3(b). 


5.5.1 Discussion of Beam-Column Test Results 


For the specimens tested by Perlynn and Kulak the predicted 
values of buckling moment are within 7 per cent of the test moment for 
seven of the nine specimens as shown in Table 5.3(a). For the remaining 
Ewouspecimens, the errors are +l2 per cent and +13 per cent. | in view of 
the possible sources of error as discussed im the next section, these 
values are considered to be acceptable. 

As shown in Table 5.3(b), for the specimens tested by Nash 


and Kulak, the predicted values of buckling moment are in error with 
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respect to the test values by less than 5 per cent for three specimens 
and by +11 and -13 per cent for two of the remaining three specimens. 
These errors are considered to be acceptable in view of the possible 
sources of error as discussed in the next section. For specimen 

number six the predicted load was only 64 per cent of the maximum load 
recorded during =the test.) Ihe validity vot ithis*test result is’ in doubt 
when compared to that obtained for specimen number five. This specimen 
was identical except for a 25 per cent increase in the hyYFy/w term 
which is unlikely to result in a 40 per cent decrease in moment as is 
apparent from Table 5.3(b). Additional doubt is cast upon the validity 
of this test result since difficulty of specimen alignment at high axial 
loads oe = 0.7) was apparently evident during the testing 


procedure®®, 


52.6, =oounces of Error 


In addition to the sources of error discussed in the previous 
sections for specific test series, the following sources of error are 
applicable as noted: 

(a) Material Properties 

This area is probably ‘the most Significant source of error 
as well as the least determinable. No investigator has as yet come up 
with an unquestionable evaluation of plate buckling properties that can 
be applied over the entire inelastic plate buckling range. Apparently, 
the most reliable guidance presently available for these values in the 
strain-hardening range is based on the works of Handelman and Peacem oe 
Haaijer and Thurlimann’, and Lay®*. In all cases these values are 


apparently closely related to the strain-hardening modulus, et Onna 
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simple tension coupon test and any error involved in determining E st 
would doubtlessly be reflected in the theoretical values predicted. 
No estimate in the error involved in determining Bey values is 
available. 

Because the specimens tested by Haaijer and Thurlimann 
and Lukey and Adams were proportioned so that failure in the plastic 
range was expected, an evaluation of Et was made for each specimen. 
The specimens tested by Kulak et al on the other hand, were not 
proportioned as plastic design sections and therefore the effect of 
E ot was not expected to be as significant. In these cases the value 


of Ese was not available for each specimen. However, a value of 


Boy = 800 ksi. has been estimated from the available stress - strain 
curves. 

Assuming that various material properties have been 
accurately determined from a simple tension test, it is generally 
accepted that these properties also apply to larger specimens of 
different shape subjected to compression. It is further assumed that 
the material is uniform throughout the test specimens. Local material 
discontinuities due to welding and forming specimens may contribute to 
error in this respect. No estimate of the error arising from the use 
of tension coupon material properties is available. 

(b) Residual Stresses 

The actual magnitudes and distributions of residual stresses 
were not available for the specimens tested by Haaijer and Thurlimann, 
and of the tests carried out by Kulak et al, residual stresses were 


available only for the column specimens. In these cases the residual 


stress distribution shown in Figure 3.11 with a maximum value of 
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residual stress of 0.30, was assumed. Residual stresses vary in 
magnitude and distribution from specimen to specimen*®* and affect the 
local buckling capacity. The effect of changing residual stress 
values is studied parametrically in Chapter 6. 

(c) End Conditions 

The end conditions existing at the longitudinal extremities 
of a local buckle depend largely upon the method of testing and 
usually they will lie between the pinned and fixed end conditions. In 
the analysis presented herein, after careful consideration of the 
methods of testing used in each test series, it was decided that pinned 
end conditions best represent the end support conditions of the column 
specimens. Because of the elastic moment gradient region adjacent to 
either end of a local buckle developing in the beam specimens tested, 
fixed-end support conditions were assumed. The very rigid attachment 
of the loading arms to the beam-columns tested resulted also in the 
assumption of fixed ends for these specimens. The effects of end 
conditions vary with the length of a specimen? and therefore any 
resulting errors will be more significant for shorter members. With 
the reduction in plate bending stiffnesses due to inelastic action, it 
is expected that the affects of end conditions would be lessened. For 
these reasons it is felt that the effects of estimating degrees of end 
fixity are not Likely tO contripute, cienificantly to error. 

(d) Iterative Technique 

All specimens buckled beyond the elastic range and therefore 
a considerable amount of iteration involving matrices was required to 
arrive at a solution for each specimen. Although tolerances were set 


at 0.1 per cent in the computer program, round-off error is expected to 
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eontribute tothe “total error. 

(e) Analytical Technique 

The buckled shapes of the webs and flanges of specimens 
are approximated using polynomials which result in the least energy 


6218 that this 


shapes for a given specimen. It has been shown 
technique results in over-estimation of buckling loads when theoretical 
shapes do not exactly fit the true buckled shapes. The present 
technique and associated computer program were checked for this source 
of error by comparing elastic critical values of plates with values 
presented by Timoshenko*® and Bleich?®. It was found for rectangular 
plates with various boundary conditions and loadings that this error 
varied from zero per cent for simply supported plates to about 3.0 per 
cent for fixed boundary conditions. Since neither web plates nor flange 
plates of these specimens are fully fixed, it is expected this source 
of error would be below 2.0 per cent in the majority of cases. 

(f£) Scaling from graphs 

The values reported by Haaijer and Thurlimann’ and by 
Lukey and Adams*® were presented in graphical form and the critical 
loads were scaled from these graphs. It is estimated that the error 
involved in this procedure would be about +1.0 per cent. 

(g) Test Measurements 

No test difficulties, other than those mentioned above, 
were reported by the investigators. There are no other significant 
errors attributable to this source, although, as in all tests, some 
error, either human-related or machine-related, or both, is probable. 

(h) Mode of Failure 


It is apparent that in several tests, local buckling was 
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closely followed by, or in fact coupled with lateral buckling. Since 
the analytical method presented herein specifically excludes the 

occurrence of lateral buckling, such effects have not been evaluated. 
In any case, the degree to which lateral buckling was involved in the 
actual failure mechanism is not clearly known, and no estimate of the 


error involved is available. 


5.7 Summary of Test Results 


As explained previously, four of the 57 test results 
included herein, are not considered to be valid for the purpose of 
verifying a theoretical method which does not include the effects of 
lateral buckling. For the 53 specimens remaining, the predicted 
results were within 5 per cent of the test results for 60 per cent 
of the specimens, and within 10 per cent of the test values for 85 
per cent of the specimens. The error was between +10 percent 
and an overall maximum of +13 per cent for only 15 per cent of the 
specimens. Overall, the ratio of theoretical to test values (of 
G2thermeritical loadsor critical moments) vartes: trom, —0.6/ sto lis 
with a mean value of 1.00 and a standard deviation of 0.065. In all 
but four casés, the prediction of the critical component (either 
flange or web) which initiated the local buckling failure agreed with 


buckling observations made during the tests. 


5.8 Summary 


As outlined above, a comprehensive survey of available 
fest data was used to substantiate the validity of the theoretical 


analysis presented herein as well as the associated computer program. 


aie a 


ye a nga ei 


a+(ozez ses ve. ots Zo <cd ,Ylaruetena peritint gro 4h a 
to shorn an, 12 biter sd of Bersticno> Jom B76 ght : 
ip aassT ts ‘af? atte Sa tin 250 Potts Serie Lesesavesi? & 


baignitaae iol inbabanes ateolaone °° 2a) aot vant blood | t 


tinea 134 09 Yot ettvast Pe ai? Q. 149) Peg 2 REM Iw etee 2 ras 

Loewy seutenk Nema sad Fo dues aay Ch nu eiw ine genamioage sie 3a, 

spestas OLE eebwiad ae” Teves 91! seqisegs. ei1% 20 3ne9 ray | 

ati? 20 de50/ 4 EE Yino 7 see? yu fle Yo qusiewem ,isTsVvG BA Dre _ 
- 


- . 
\5) esuke? saps of Tachestoods oftay efi »ftetsv?  arraniiaege 


by ie 0d S002 wert aclas? (4pomem feat! ss 46 Beas lauisris yedtis: q 


tie At 20,0 De nabfetve) bactanje s one Uy) WS aulev mao 6 iy 


Ssiria) togqedues Easierts os 35 nod soébaig st ,a@ea6> Iv0z aad 7 
—_ 


‘iu ‘Averge sy) bel gol taand’leons +t wetelodad, spcdw (daw vo syneit 


aus) o49 atisyl) shaw enotsayieedo guiiiong 


a 
aes 


+ =—— a5 


AA > a 


_ 


ahdattove Ye WeVdus aVesRsitergra> & ,=/aTs hal Jeo “ 


lagizextaGs ai? ic eiphilev of2'ajsidne eee OF Se80 ae 


‘aGinera’ senuguto hezsekavgss sis. ax iiow ve cleted Basnesexg. :. e 


94 


The comparison between predicted and experimental results has 
indicated satisfactory agreement between test and theory. In Chapter 
6 this same technique is used to evaluate the effects of various 
parameters which are considered to be of some significance in 


affecting theoretical predictions. 


Load at Buckling 


Specimen Experimental Predicted Ratio 
Number L.~ (kips) Lp (kips) (L/L) 
ib 330 (F) 357, {f) 1.08 
2 232 (EW) 293. (F) 1.09 
3 442) (F) 29 (i) Ome 
4 514 (F,W) 548 (F,W) My 
5 380 (F) 374 (F) 0.98 
6 207 (W) 221 (W) IDLO: 
1 kip = 4.448 kN 
(a) Results of G. Haaijer and B. Thurlimann 
Load at Buckling 
Specimen Experimental Predicted Ratio 
Number L,7 (kips) L,7 (kips) (L/L) 
i LOLONCE) LOIS) 101 
2 LODO (F) 1018 (CF) OL 
3 1000 (F) LOLOCE) des02 
4 680 (F) 693 (F) 02 


1 kip = 4.448 kN 


(bor BResults of Gy bekwlar 


5.1 Comparison of Experimental and Predicted Values for 
Columns. 
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Moment at Buckling 


Specimen Experimental Predicted Ratio 


Number M,- Gin.-kips) Mp7 Gin.-kips) (M,/M,) 
1 1825- @ 1491 (F) 2 al 
2 Sie 1G) 842 (F) 1.04 
3 1825 (F,L) T7970) 0.98 
4 2951 (i) 2848 (F) On S57 
5 1230-2) 1295. (FE) ie OL 
6 S19, Res) 847 (F) 1203 


1 in.-kip = 112.98 N-M 


(a) Results of Haaijer and Thurlimann 


Moment at Buckling 


Specimen Experimental Predicted Ratio 


Number M,- (in. -kips) Mp7 (in. ~kips) (M/M) 
1 3840 (F) 3851 (F) 1.00 
2: 4910 (F) 4893 (F) 1.00 
3 5740 (WwW) 6091 (F,W) OG 
4 6820 (W) 6796 (W) E200 
5 3940 (W) 4400 (W) ee 
6 3380, (@) Soe Chow) 1.06 
if 3770 (W) 4005 (WwW) 1.06 
8 3910 (F) 3790 CE) Oo, 
a 4580 (F) 4092 (F) 0.89 

EO) 4780 (F) 4588 (F) O296 
at 5367 (W) 5452. (W) 02 
12 5696 (W) 5939 (WwW) 1.04 


Pein e-kips= 259s Ne 


(b) Results of Holtz and Kulak 


5.2 Comparison of Experimental and Predicted Values for 
Beams. 
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Specimen 
Number 


Ws) (o.5) Stems Wa) oS (6S) Iss) 


Pare kip = 


Moment at Buckling 


Experimental 


M7 (in.-kips) 


22 od. 
1845 
549 
463 
487 
488 
SIE 
701 
656 
659 
698 
679 
So 
440 


ti Zoo. Nes 


Gs) 
Ce) 
(F) 
(F) 
(F) 
CF) 
(F) 
(F) 
(F) 
(F) 
(F) 
Ce) 
(F) 
(63) 


Predicted 
M7 (in.-kips) 


2324 
2698 
476 
548 
491 
463 
423 
628 
643 
645 
639 
647 
Deo 
403 


(c) Results of Lukey and Adams 


(F) 
(F) 
(F) 
(G9) 
(F) 
ce) 
Gs) 
(F) 
(F) 
a) 
Cr) 
(F) 
(F) 
(F) 
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5.2 Comparison of Experimental and Predicted Values for 


Beams. 


o7 


Moment at Buckling 


Specimen p/P Experimental Predicted Ratio 

Number y M,-(in.-kips) M,-(in.kips) (M/M,) 
tr Oe 2370 (F) 2376 1B) 1.00 
2 Oe 2132 Zoo4, (Pe) G93 
3 Ome 2887 (W) 2796 (W) Oey 
4 0.4 1606 (F) 1808 (F) as 
) 0.4 1829 (R) 1781 (F) ORO7 
6 0.4 2303 (F,W) 2157 (F,W) 0.94 
7 0.8 PSOr wh) 825 (F) Ake? 
8 0.8 694 (W) 660 (W) OSI: 
° 0.8 582 (W) 588 (WwW) LS 


1 in.-kip = 112.98 N-M 


(a) Results of Perlynn and Kulak for Compact Sections 


Moment at Buckling 


Specimen P/P Experimental Predicted Ratio 


Number y M,- (in.-kips) M, 7 Gin. kips) (M/M,) 
1 Ons 3704 (F) 3698 (F) 00 
2 We eS) ZO22 Ge) 2923 (E) ian 
3 0230 2827 (WF) Zp Ace, AW Ee) UE96 
4 0230 2488 (F) TMG (G2): 0.87 
5 0.70 668 (W,F) 682 “WW SE) T202 
6 OF 20 1095 (2) JOST) 0.64 


in.-kip = 112.98 N-M 


(b) Results of Nash and Kulak for Non-Compact Sections 


20 Comparison of Experimental and Predicted Values ior 
Beam-Columns. 
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Chapter 6 
THEORETICAL STUDY AND EVALUATION OF PARAMETERS 
6.1 Introduction 


As presented in Chapter 5, test results are available for 
a limited number of local plate buckling specimens subjected to axial, 
flexural, and combined axial and flexural loadings. The number and 
variation of dimensions of these specimens are not sufficient in 
themselves to be able to establish general design parameters. Further- 
more, the critical buckling loads may be significantly influenced by 
certain parameters which have not been specifically studied in the 
Testes wnethis chapter, analytical results an the form of critical 
plate buckling curves are presented and discussed for a wide variety of 
columns, beams, and beam-columns. Additionally, the effects of 
important parameters on local plate buckling capacities are evaluated 
and discussed. Unless specifically varied the following basic values 
are used in the parametric study: E = 29,600 ksi., ao44 ksi. 
e = oe, SiMe Tee ae = G00 Kei... £lanse aspect ratio = 4. 


y, 


and web aspect ratio = 2. 


6.2 Columns 

Figure 6.1 shows the variation of the critical load ratio 
orl with respect to the web width-to-thickness term (hv Fy /w) for 
various values of the flange width-to-thickness term (byF./2t). The 


knee portion of each curve results from the presence of unavoidable 
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residual stresses. For the sake of comparison a curve corresponding 

to a theoretical value of zero residual stress is also shown. By this 
comparison it can be seen that the effects of residual stresses are 
most pronounced in the elastic and partially elastic regions. Assuming 
a residual compressive stress os Oe as yielding begins at 

eee = 0.7 and hyB L/w = 475. As hyF/w decreases, flange buckling 
becomes predominant as the yield load is approached, and at lower 
values strain-hardening occurs. The dashed curve respresents the 
elastic buckling solution. 

The CSA S16.1-1975 Standard’ specifies a flange slenderness 
Valuestorecolinm flancesiioneb00. GAs illustrated ian PicuresGe ls .the 
analysis presented herein predicts that this value is slightly uncon- 
servative. At the currently specified limitations’ of bvF,/2t = 100 
and hyE /w = 255 for columns, the analysis presented herein predicts a 
value of ule = 0.9. Also, the figure shows that De does not 
Reach a value of 170 untzl bvP/2t has been reduced to 72 and values 
of hvF ,/w aré less than<300; 

This theoretical result for columns has been substantiated 
by the results of four column specimens tested by Kulak at the 
University of Alberta. As discussed in Section 5.5, three of the 
specimens had flange slenderness values of 72, and the fourth specimen 
had a flange slenderness value of 100. The value of web slenderness 
was 200 for all four specimens. The flanges of the three specimens 
having byF/2t = 72 buckled at or slightly above res =6b 0s "ama Le 
the flanges of the specimen having byF,/2t = 100 buckled at Ea = 
0.9. These test results as well as the theoretical analysis presented 


herein indicate that a value of byF/2t = 72 (as opposed to the current 
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limitation’ of bYF,/2t = 100) should be used for columns. For this 
reason, subsequent parametric studies presented herein are based on 
a value of flange slenderness of 72 for columns. 

In order to be able to later tie in columm local buckling 
behaviour as one limiting case of beam-columns, the local buckling 
SErengeth curves "for*axially si oadedsOlass (1) Class 2, and Classr3 
sections are shown in Figure 6.2. The rounded portion of each curve 
between values of hvF/w of about 300 and 475 is due to gradual 
yielding in the presence of residual stresses. A curve corresponding 
to zero residual stresses as mentioned previously is also shown in 
Figure 6.2. For web slenderness values greater than 475, elastic 
buckling of the web occurs and for values between 475 and 300, web 
buckling occurs in the inelastic range. For values of web slenderness 
less than about 300, flange buckling in the yielded and strain- 
hardening ranges occurs at values of ene equal to or greater 
than i5..0. 

A column local buckling curve is shown in Figure 6.2 for a 
value of bYF /2t = 64 corresponding to the present CSA-S16.1 
specification for a Class 2 section. For a Class 1 section with 
byF/2t = 54, a similar column curve is shown in Figure 6.2. Although 
these two sections are not explicitly designated for use as columns, 
the corresponding column curves are presented here so that the effect 
of the bvF/2t term for columns may be evaluated. Also, these sections 
subjected to column action, represent a limit of the corresponding 
beam-columns when bending moments are negligible. 


The effect of the flange slenderness values can be seen by 


comparing the curves in Figure 6.2. For values of hvF/w greater than 
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300, where web buckling is predominant, varying bYFL/2t from 54 >to 72 
has virtually no effect on the web buckling capacity. The effect of 
thissterm 1s most sienificant for values of hyF/w less than 300 


since that is the region wherein flange buckling is predominant. For 


byF,/2¢ = //2 strain—-hardening of the seetiom beecins at a value or 
nvFL/w = 220. As bYF/2t is decreased, strain-hardening begins at 


progressively higher values of hyF L/w, the upper limit being bvF/w = 


325 for a Class 1 section with a flange slenderness value of 54. 


6.2.) Effects of Residual Stresses 


The effects of residual stresses on the local buckling 
loads of columns is shown in Figure 6.1 for bvF ,/2t ratios of /2.,.00, 
UG, saud l00. Vand in bieure. 6.2. for byF/2t Patios On O44) 64, and 72. 

In these figures, column local buckling curves for a theoretical value 
On Ee O are compared with those corresponding to a more practical 
value of Dae ee and a residual stress distribution as shown in 
Figure 3.11. The value of Cea oF 1s representative of values used 
by other investigators’®°°°*+*** for the purpose of including the 
effects of residual stresses when exact values are unknown. 

By comparing the curves corresponding to oR O with those 
corresponding to Ont a= OSE Hee be seen that, in the range where 
elastic web buckling occurs (at values of hyF L/w greater than about 
475), a residual stress of Beer reduces the critical buckling load 
ratio by about 25 per cent. The influence of residual stresses dimin- 
ishes as the value of al approaches 1.0, and completely disappears 
as strain-hardening becomes imminent at lower values of hVE / 


According to the theoretical method presented herein, the 
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values of byF/2t = 100 as presently specified for W shape columns” 
appears to be too liberal when a residual stress of Comp "0 230. is 
assumed. In Figure 6.1, the curve corresponding to bYF /2t = 100 and 
Cae ee, reaches a value of reel = 0.9 at the presently specified’ 
web slenderness ratio of 255. The curve corresponding to byF,/2t = 
100 and the theoretical value of one = 0 on the other hand, reaches a 
value of cee = 1.0 for values of web slenderness as high as 475. 
For this reason therefore, the analytical method presented herein sug- 
gests that the presently specified value of byF /2t = 100 is too Waber— 
al because of the effects of residual stresses. The analytical method 
presented herein predicts that when a W shape column is proportioned so 


that byF/2t <a Jean hyE L/w << 1300/2) value of Bagley > 1.07 ean be 


reached for an assumed residual stress of eee = 0.30... 


6.2.2 Effects of Strain-hardening Modulus 


Figure 6.3 shows the effects of strain-hardening modulus 
values, Of 700s COU, enade900 Ker. on the locals buckiimescapacicy of col— 
umns. These values of strain-hardening moduli were chosen because they 
are representative of values that have been determined by several inves- 


5. 75 86 ; 
ie oe V2) hor eolumies propor toned eco 


tigators in this area 
that byF/2t = 72, variations in the values of the strain-hardening mod- 
Ulus are intluential for values Jot hvF L/w less than about 200." In this 
region the curve separates into three branches corresponding to the 
three different values of the strain-hardening modulus investigated. As 
would be expected in this region, for a given value of web slenderness, 


the value of P /P increases as the strain-hardening modulus increases. 
Sie 


As can be seen from Figure 6.3, in the practical ranges of plate 
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proportions for W shape columns (byF /2t = 7/2) and hyF L/w = 300), the 
value of the strain-hardening modulus has negligible effect on 


column local buckling strength. 


6.3 Beams 


Figure 6.4 shows values of the ratio of critical local 
buckling moment to the yield moment plotted against the web width-to- 
thickness term (hyF /w), for various values of the flange width-to- 
thickness term (bvE/2t). Again, the effects of residual stresses are 
included as is evident from the rounded knee portions of these curves. 
For values of hyF /w greater than about 1100, local buckling of the 
slender web occurs in the form of warping due to the presence of 


residual stresses. 


Gaon me Olascm oa. beams 


According to the CSA $16.1-1975 Standard’, the flange 
width-to-thickness term for a Class 3 beam is set at 100 and is the same 
as that for a column. The currently specified web width-to-thickness 
ratio is 690. For these values, Figure 6.4 shows that Mg OS 

Comparing similar curves for various values of byF/2t in 
Fieure 6.74, 26 is seen that MoM, attains a value, or 1.04 at byF ,/2t = 
72 over a large range of web slenderness (up to about hvE /w = 800). 
Although Mie slightly exceeds 7 (by only 4 perm cent) for byF/2t S72, 
thig value seems to be appropriate for a Class 3 beam in that it corre- 
sponds with the value suggested for columns. In this way, the same 
value may be used throughout for a Class 3 beam-column which has as its 


limits, pure axial load at one end of the loading spectrum, and pure 


Elextivevat the Other. FOr bvF,,/2t = 72, Figure, 6.4 Slows that Lor curves 
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of web slenderness greater than 975 the web buckles elastically. For 
values of web slenderness between 800 and 975 the web buckles in the 
inelastic range as a consequence of the influence of residual stresses. 
The mode of failure changes from web buckling at a value of 800 to 
flange buckling for values less than 800. At a web slenderness value 
of 260 the curve begins to increase rapidly as strain-hardening 


becomes intluential. 


6-5-2 Glass 2 Beans 


The Standard’ specifies that Class 2 beams have a flange 
slenderness value not exceeding 64 and a web slenderness value not 
exceeding 520. In Figure 6.5 valtes of the ratio of critical moment, 
ier to the plastic moment, Moe are plotted against the web width-to- 
thickness term, hvF /u, for a flange width-to-thickness value of 64. 
For values of hvB /w greater than 11005 Vocal buckling oceurs im the 
form of warping of the slender web subjected to residual stresses. 
Referring to the curve corresponding to a value of byF/2t = 64, local 
buckling of the web occurs in the inelastic range between values of 
hvE /w Or about G00 and 975. For values of hyB/w less than 800, 
Eleanse buckling occurs et a value or MM, = 1.0, and at hvE,/w = 300 
strain-hardening of the section begins and strength increases rapidly 


as hvF/w decreases further. 


Cao eo Olassmatabeans 


For Class 1 beams the Standard” specifies a flange slender- 
ness of 54 and a web slenderness limit of 420. Values of te are 
plotted against hyF/w for a value of bYF /2t = 54 as shown in Figure 6.5. 


For hvF /w greater than 800, the behaviour of these beams is) Simular to 
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that described previously for Class 2 sections. Because of the 
increased sturdiness of the flanges however, web buckling continues 
to be the mode of failure for values of hyFy/w as low as 600. Below 
this value, flange buckling occurs. For values less than 800, M/M 
is greater than 1.0 and this implies that the strain in the flanges 
can reach the strain-hardening range before local buckling occurs. 
Therefore, these sections can undergo sufficient rotation to permit 
redistribution of stresses while sustaining the plastic moment value, 


as required of Class 1 sections*°??°”. 


6.3.4 Eftects of Residual Stresses 


The critical buckling moment ratio is plotted against 
values of web slenderness for values of flange slenderness of 72, 80, 
90, and 100 in Figure 6.4 and for values of flange slenderness of 54 
and 64 in Figure 6.5. Again, the assumed residual stress value is 
Cena Bele and the assumed residual stress distribution is similar 
to that shown in Figure 3.11. For the purpose of comparison, these 
curves are also plotted for the theoretical value of co = 020.) ain the 
range where web buckling is critical oe <,. Ovand hyF,/w > 800) 
residual stresses have their greatest effect in reducing the critical 
buckling moment capacity. For values of hvF/w greater than about 
1100, the residual stress causes web buckling in the form of warping of 
the very slender webs. As values of hyF L/w decrease below 800, the 
significance of residual stresses diminishes and as strain-hardening 
is approached their effects become negligible. 


As discussed for columns, it appears here also that the 


presently specified flange slenderness’ of 100 is too liberal for 
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Class 3 beams when a value of Cates 0.30, 1s assumed. Referring to 
Figure 6.4, for a value of flange slenderness of 100 and oP. = 0.30., 
the critical local buckling moment is 90 per cent of the yield 

moment at the presently specified web slenderness* of 690. The 
theoretical curve for which bvF,/2t = 100 and ora = 0, on the orner 
hand, shows that the critical local buckling moment reaches the yield 
moment for values of web slenderness as high as 800. This suggests, 


therefore, that the value of byF/2t =) FOO" for Clase 3° beams is. too 


liberal because of the effects of residual stresses. 


6.3.5 Effects of Strain-hardening Modulus 


The effect of varying the strain-hardening modulus upon the 
local buckling behaviour of beams is shown in Figure 6.6 for a value of 
bYF,/2t =—/ 2.and in Fipure 6. / tonsa vale sor bvF,/2t = 54. As for 
columns, the same three values of strain-hardening modulus are used 
here for beams. Figure 6.6 shows that for sections with bYFy/2t = 72, 
the effect of strain-hardening is evident only for values of hvFy/w 
less than about 280. Although not explicitly shown herein, it has been 
determined that these same observations apply to compact sections’ with 
a value of byF,/2t = 64. For plastic design sections’, Figure 6.7 
shows that the effect of strain-hardening is influential for values of 
hvFy/w less than 800. This is because the very sturdy flanges 
(bvF,/2t = 54) enable these sections to reach strain-hardening strains 
at relatively high web slenderness values. 

For the values of ae examined, there are no significant 
differences in local buckling strength for beams having flange 


slenderness values of 72 and 64 when practical values of web slenderness 


Stone i4 selena bums Leuk ad 


pazenmpne eiir ibaa viotd eu feeuteienl OM. is 
se° eh qeaad @-ab473 703.908 = e\ eo ln eplae ste sea 29 Ls 


geotabsse Dythissy 0 eovakte wap Fe 


actlutul) Ra iaabxinesgei® 30 as o0S ee 


S32 amg ei into Qolieiialt-P says: $f) 402y? 30 joelis off : 


+6 Butay a Gat fed Seygl ta) peods 27 extol 3o swokveded gas 
s6t ne <pA = Gehl BH) Satay © act 6.2 etuget a ek Sh Ry 
teen 8tm. aolyida griesiceg-nlewie.iv asciev agidt odes od 2am 

: ah 

as toly otiwiehod teen, 46) FeAs ewe 2.2% wal? otoned Sob ee 
~ 

ans 
qged eat 3? , diavell neede-Visialeqic tu aqeettee ,O@L dvode rads veal 
s 
fide *-qo$déest 7 PhaGD.02 yidqe 2oeF 2h tate cp aml dene benians3sb) 
1 O/eteai? , waclzeda Mased peters 209 ie » nh Med to suley & 


ASbn? 20 anliey pat Cite iooblvs 3) oo \eenendep lanza Qe aaehae: 


to geutlavode: /sdtoeudigt a: wrinds3 teoede to 290The als isdi evode - 
ages h¢ ChOUTE S2Sy Af2 seth a > 0° 904 weds eaol wighe 
enissee Yoinevisd-nierie ipsa: 0) evaitcs« sae/! widens (ae ~ a0\ Sed? : 
ssuiel® neaet Pople Weald qiewge, 

tnasitiayl= <* Sie, Has borieew = to vsjlav edz rot Vp a 
es taii grated Meee 20%, Ni gnets< eps teed Radel ek. | 


aun suasta dav io eeusey iso rroeey sald +a 409 53 Gn Meelay 


are used. The local buckling strength of plastic design sections, on 
the other hand, are significantly affected by changes in the strain- 
hardening modulus for all values of web slenderness less than about 
800. As would be expected, this effect increases as web slenderness 


values decrease. 


6.4 Beam-Columns 


The previous section has indicated that suitable flange 
slenderness values for flexural members are byF/2t = 54, 64, and 72 
ror Class 1, 2, and 3 respectively. Further, a suitable value for 
axially loaded members is byF/2t = 72. These will therefore be the 
values principally investigated for beam-columns. The analysis will 
be based on the assumption that an axial strain less than the critical 
one will be applied first. A flexural strain is then superimposed and 
gradually increased until local buckling occurs. 

At each increment of flexural strain, equilibrium of a 
cross-section is satisfied and the position of the neutral axis is 
updated to account for yielding of a section. For a given flange 
width-to-thickness term, values of the ratio of applied load to yield 
load can then be plotted against values of the ratio of critical moment 
to yield moment or plastic moment for various web width-to-thickness 
terms. The web width-to-thickness term is varied from 300 to 800, 
corresponding to the limits determined previously for a pure column 
(zero flexural strain) and a pure beam (zero axial strain). In this 
way, for a given byF/2t value, a set of interaction curves is 


generated for various hy L/w values. 
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6.4.1 Class 3 Beam-Columns 


As discussed in Section 6.3.1, the present code value of 
by /2t =" J00" for a Class 3S section appears to be too Mien according 
to the theory presented herein. Furthermore, a value of byF,/2t = 72 
was found to be adequate for local buckling requirements of columns 
and for beams required to reach the yield moment, M_, before local 
buckling occurs. In this section, therefore, interaction curves are 
generated for beam-columns corresponding to a bYF/2t value of 72 
and various values of hvEY/w. 

Ratios oF applied load to yield load are plotted against 
the ratios of critical moment to yield moment for various bv /w values 
in Figure 6.8. Values along the vertical axis represent pure column 
behaviour and those along the horizontal axis represent pure beam 
behaviour. For each curve corresponding to a fixed hvE/w value, as 
— increases above zero, a point of tangency is approached on the 
line joining the points UE = 1.0) and Sol = 1204 sAt the point of 
tangency the mode of failure changes from web local buckling to flange 
buckling and beyond this point each curve remains tangent to the line. 
The sloping dashed line, ve = Me (SBE represents the strength 


interaction equation for a Class 3 beam-column . 


624i Current Specatications 


For Class 3 beam-columns the web limitations are currently 


specified as follows: 


} = - < 
hvF, /w 690 (1-2.60 P/P.) OS P/P. 20505 (6.1) 
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These web limitations are based on test results obtained by Kulak 
and Nash**. Since the time of publication of these limitations, 
additional work in this area by Kulak and Nash?° has indicated the 


following increases: 


hvF_/w = 690 (1-1.69 P/P_) OR P/ PueciGaiS 

t y es (6.3) 
lvls /w = 535-(1=0.28 P/P:) OmlS <eP/ Piel 

2 . a (6.4) 


Although the theory presented herein indicates that a 
bYFL/2t value of 72 should be used for Class 3 sections, the specimens 
tested by Kulak and Nash were designed on the basis of the existing 
code value of bP /2t = 100. Furthermore, the specimens were able to 
reach, and in some cases exceed the value of SS reduced in the presence 
of axial load. The theory presented herein also aredners values in good 
agreement with these test results when the effects of the rigid plate 
boundary constraints (necessitated by the attachment of the loading 
arms to the test specimens) are included in the analysis. In practice, 
however, the effects of these rigid supports for longer members are 
negligible. Omitting the effects of these supports, the present method 
predicts that a value of bYF/2t a J voeindicatederormClass Basectiens. 
For this value, the web limitations as predicted by the theory 


presented herein are discussed in the following section. 


6.4.1.2 Theoretical Limitations as Determined Herein 


For a Class 3 section the beam-column interaction curves are 
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plotted in Figure 6.8 for various values of hyF /w. At various values 


of rite each curve intersects the line described by: 


Oh ee CEE (6.5) 


In Figure 6.9 these values of eve are plotted against 
the corresponding values of hyF /w. For pure beam action at P/P =0, 
the predicted web limitation is hyE/w = 850. As P/P increases, 
the slope of the curve decreases rapidly and becomes constant in the 
region of P/P between 0.42 and 0.75. As ey further increases the 
slope decreases slightly as pure axial strains are approached at 
2s = 1.0 and a minimum value of hyF /w = 300 is reached. 

A linear approximation to the curve described above is also 


shown in Figure 6.9 and it is given by the following relationship: 


hyE /w = 725 (1.0-0.59(P/P_)) O< P/P. Zi (6.6) 


This approximation deviates markedly on the conservative side from the 
theoretical curve for low values of By In this region however, a 
conservative limitation is desirable in order to account for small 
residual axial loads occurring in service and as well to avoid the 
sensitivity of the steep theoretical gradient in this region. The 
relationship of Equation 6.6 as well as the limitations described by 
Equations» 6... and 6.2 are also shown in Figure 6.9. 

Referring to Figure 6.9, the theoretical method presented 
herein indicates a web limitation of eae at ne = 0.0 for beams. 
As Es increases, a linear decrease in hy /w as a result of decreasing 
web flexural tension, is indicated. For pure column action, at ups = 


1.0, a minimum value of hyF L/w of 300 is reached. This theoretical 
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limitation differs from that presently specified by Equations 6.1 and 
6.4 in the region of pure beam action ee = 0.0) by about +5 per cent. 
As increases this difference reaches a maximum of about +60 per 
cent at eee = 0.15 and from there it decreases to +18 per cent at 

Si = 1.0. This comparison should be comsidered in light of the fact 
that the theoretical web limitations are based on the assumption of a 
flange slenderness ratio of bYF /2t = 72 ( as previously explained), 
whereas the present limitations are based on the results of test 


specimens whose flange slenderness ratios were bYF, /2t = 100. 


624.25 Class, 4 Beam—-Columns 


As already indicated, it will be assumed that a Class 2 
beam-column is proportioned so that the flange width-to-thickness term 
is byF,/2t = 64. According to the theory presented herein, this value 
was found to be adequate for compact beam sections as illustrated in 
Figure 6.5. At the other extreme of beam-column action, namely pure 
axial load, these sections can reach a Boel Ss value-or 0 for a value 
of hyFy/w = 300, as shown in Figure 6.2. Accordingly, these beam-column 
sections were investigated for a range of Boe ratios between zero and 
one, with the hyFy/w values varying from 300 to 800. The results of 
this investigation are presented in Figure 6.10. 

im this figure, values,of the ratio of applied load to yieid 
load are plotted against ratios of critical moment to plastic moment 
for various values of hvE./w. The flange width—to-thickness term for 
all curves has a constant value of 64. For these curves, the same 
discussion as presented for Class 3 beam-columns in Section 6.4.1, is 


Valid here for Glass Z beam-columns. 
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6.4.2.1 Current Specifications 


The present limitations specified for web width-to- 


thickness terms for Class 2 beam-columns are as follows’: 


hvFY /w 520 (1=1.28 P/P.) has P/P.. ORM 


(6,7) 


hvF_/w < 
yi 


450 (1-0.43 P/P ) On Sate SP eee oO 
y y (6.8) 


These web limitations are based on test results from a series of nine 
compact beam-columns tested by Perlynn and Malaka ss As presented in 
Chapter 5, the analytical method presented herein substantiates these 
results when the effects of rigid supports necessary for testing 
purposes are included in the analysis. Conservatively omitting the 
effects of these rigid supports however, the analysis presented herein 


shows that the conventional value of plastic moment reduced for the 


presence of axial load®?’°", 
Ul OP ey OI) 
E y (6.9(a) 
ama, 
Meta ee LGM sale see ss) OPIS ese /iPe ae 
= é e Z (6.9 (b)) 


cannot be attained by compact sections when hvF /w is ereater than 250. 
Such a limitation however would severely restrict the choice of web 
sizes available for use in compact sections. As shown in Figure 6.10, 
the analytical method presented herein predicts a maximum local 


buckling strength for compact sections of: 


Me = M, (1-P/P), (6.10) 
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when the web slenderness ratio varies between 300 and 800. Therefore, 
in accordance with the analytical results presented in Figure 6.10, 
Equation 6.10 is suggested for use with compact sections and, in this 
way, all values of hvF /w Wp to oul can pe UbLiized for Ulare 2 


sections. 


6.4.2.2 Theoretical Limitations as Determined Herein 

As shown in Figure 6.10 the curves corresponding to various 
values of hvF /w become tangent to the line described by Equation 
Guar Various values. oF ee In Figure 6.11 these values of hvYF /w 
are plotted against the corresponding values of P/P_. The resulting 
enrve has 4 value of hvE /w = 800 for pure beam action cae = 0.0). 
As oe increases, the slope of the curve rapidly increases to a 
constant value in the region of es between 0.42 and 0.75. As Pies 
further increases, the slope decreases slightly as pure axial strains 
are approached at ves = 1.0. “At this value Get EL a minimum value 
of hVE L/w = 300 is reached. 

The curve described above may be approximated by a linear 
relationship given by: 


hvF /w = 660 (1-0.55 (P/P_)) OS F/R <1 70 
7 a ” Gr) 


This relationship as well as the relationships defined by Equations 
6.7 and 6.8 as established by Kulak and Perlynn’* are shown in Figure 
Grell 

In establishing the above linear approximation a line was 
drawn from point A at the end of the curve at ese = "1.0 tor the point 


of tangency at B and extended to intersect the vertical axis at 
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ave /w = 660. This approximation results in conservative limitations 


— 
4 


of av /w for low values of Ele. This is desirable however in order 


to avoid the sensitivity of the steep theoretical gradient in this 
region as well as to recognize the possibility of small unavoidable 
axial loads that may occur in service. 

As can be seen from Figure 6.11, the theoretical method 


presented herein predicts more liberal web limitations than those 


i 
Kh 
m 
W 


ently required for Class 2 sections. However, implicit in these 
limitations is the use of ane as defined by Equation 6.10 based on 
local buckling considerations rather than the use of ate as defined on 
a strength basis by Equations 6.9. Referring to Figure 6.11, the web 
limitation for pure beam action at ba = 0.0 is hyF_ /w = 660. As 


Pfe increases, the web is subjected to decreasing amounts of flexural 


2 


tension. As a result, the wa had limitation decreases linearly to a 
minimum value of 300 for pure column action at P/P. = 1.0. In the 
region of pure bending (Efe = 0.0), this theoretical limitation 
differs by about +27 per cent from that presently specified by 


and 6.8. As P/P increases this difference increases to 
“ 


a maximum of about 45 per cent at P/P = 0.15 and decreases to a 


Minimum of +18 per cent for pure column action at P/P_ = 1.0. As 
explained previously, the theoretical limitations are based on the 
assumption that the maximum moment in the presence of axial load is 
that given by Equation 6.10. The presently specified limitations, on 
the other hand, are based on the results of test specimens whose 

moment capacities equalled or exceeded that given by Equations 6.9. 

In addition to the above theoretical limitations, the analytical method 


presented herein also gives results in good agreement with these test 
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results when the effects of the rigid plate boundary constraints 
necessary for testing are included. The marked difference between 

the theoretical limitations and the presently specified limitations is 
therefore largely attributable to the effects of necessary constraints 


used during testing. 


6.4.3 Class 1 Beam-Colums 


A Class 1 beam-column is proportioned so that the flange 
width-to-thickness term byE /2t = 54. As discussed in Sections 6.2 
and 6.3.3, this value was found to be adequate at the two extremes of 
beam-column action, namely pure axial strain and pure flexural strain. 
The behaviour of Class 1 beam-columns was investigated for a range of 
values of By between zero and one, and for values of hvF /w between 
325 and 800. The results of this investigation are presented in the 
form of interaction curves im Figure 6.12, where values or: P/P are 
plotted against values of ee for various values of hyF /w. 

Unlike those for Class 2 and Class 3 sections, the inter= 
@etiom curves for Class 1 sections do not become tangential to a line 
joining the points at P/P, = 1.0 and UE el Soles  fomrdlass 2 and 
Class 3 sections it was found that at a given value of Bree the 
maximum critical moment value is determined by flange local buckling 
capacity. However, in the present case, local buckling is controlled 
by the web for values of MMs less than about 1.05. Since web 
buckling controls, for a given value of aye an anecrease in the 
sturdiness of the web (corresponding to a reduced hy /w value) will 
result in an increase in the value of Moi Ml, Thus the curves in 


Figure 6.12 do not become tangential but rather, they are separated to 
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the right of one another as bYF/w decreases. 

In the region of pure flexural strains, an upward sweep of 
the curves is evident for values of hvF /w less than or equal to 600. 
This is apparently due to two factors. Firstly, as the region of pure 
flexural strain is approached in the vicinity of Mori M,, = 1 ..05;,. the 
mode of failure changes from web buckling to flange buckling. The 
second factor which contributes to this upward sweep is the effect of 
strain-hardening on the flange. (It is shown in Figure 6.15 that 


a reduction an the value “of E. reduces this upward sweep). 


iE 

Referring again to Figure 6.12, the equation of the line 
joining the points, Be = ]..0'-and — = 1.0 is given by Equation 
6.10 and is restated here as follows: 


M/ Mo =-(C1=P/P.) 
So y (6.10) 


For all values of hyF /w corresponding to the curves shown in the 
figure, the moment ratio given by Equation 6.10 is either equalled or 
exceeded for certain values of Bee This implies that the strain- 
hardening strain may be reached or exceeded for these values:and 
therefore the hinge rotation necessary for plastic design sections is 
attainable. For values of hyF/w equal to o25e and 350, the rerttect sor 
strain-hardening is more pronounced as indicated by the increased 
slopes of the corresponding curves. 

The cross-sectional strength interaction equation commonly 


e226 is also shown im Figure 6.12, 


used for plastic design sections 
This is described by Equations 6.9 as stated previously and repeated 


here for convenience as follows: 
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M oy ORs / t= 05 
: e y (6.9(a)) 


K< 
I 


Lees M, Ose e Cer Ox <2 Pag ce ven '0 


ces y (6.9(b)) 


These values are applicable as long as local and overall instability 

do not occur. The validity of Equations 6.9 has been verified 
expenmmentally using Wl2 x 36,5 Worx 316 W4 x 13, cand Wi4 78 

seebions °°"? °° ssith values) of byF /2t Of) 38s 60,039 endo. and 
values of byF L/w om 206.8 1535) S4eand S86 jerespectively » “For inese 

plate width-to-thickness terms the theory presented herein verifies that 
local buckling indeed is not critical in these sections and therefore 
does not interfere with the strength limitation as given by Equations 
6.9. However, it should be noted that the specimens used for the 
experimental verification of the strength limitation are considerably 


sturdier than those presently designated as Class 1 sections. 


624.3215 Curtent Speciivcations 


As mentioned previously, Class 1 sections are those for 
which the flange width-to-thickness term is presently limited to 54. 
Under pure axial loading the web width-to-thickness term for all W 
shapes is presently limited to 255 and for pure beam action the limit’ 
is set at 420. In the intermediate range where beam-column action is 
required, a bi-linear curve is applicable. This bi-linear relationship 
is presently expressed as follows’: 


gen kip BSS On OS chic ea aye 
y y (6.12) 
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Be 


hyF /w = 420 (1-104 ee Os a = 10,28 
(6.13) 
The current code width-to-thickness Limitation for column 
webs is set at hyF /w = 255. This value is based upon the results of 
specimen D6, one of six tested by Haaijer and Thurlimann’. The 
current web limitations for Class 1 beam-columns are based on semi-em- 
pirical values obtained by Haaijer and Thurlimann. Although no beam- 
columns were tested, they used the test results of specimens D2, D4, 
and D6 in which the webs were uniformly compressed. It was then 
assumed that values obtained at the level of critical strain for these 
Specimens could be applied at the level of mean strain in the 
compression zone of a beam-column. Although the analysis did not 
directly incorporate the effects of residual stresses, in the region of 
critical stress between the proportional limit and complete yield, a 
transition curve was fitted on the basis of geometric considerations. 
According to the present theory, the current value of 
byF/2t = 54 is an adequate limitation for Class 1 sections and no 
reduction or increase is indicated. It is apparent, however, that the 
present web width-to-thickness limitations for these sections are 
conservative. The present theory predicts that the value of byE L/w 


ean be increased for all values of a 


6.4.3.2 Theoretical Limitations as Determined Herein 


Class 1 beam-columns are required to reach and sustain the 
reduced plastic moment capacity through a hinge rotation sufficient for 


the redistribution of stresses within a structure prior to 


4533563 


collapse Because of the stricter requirements, these sections 
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should be expected to satisfy the strength limitations of Equations 
6.9. In fact, the theoretical method presented herein predicts that 
this is so and that the present web limitations are somewhat 
Conservative: for Class! 1 sections. 

Values of ae versus Boll, are plotted for various 
values of by /w for Class 1) sections as’ shown) in Figure 6.12. The 
strength relationship given by Equations 6.9 is also plotted in this 
figure. As shown in Figure 6.12 the local buckling capacity equals 
or exceeds the strength capacity of Equations 6.9 for some values of 
hvF /w. Values of ee may be determined at the points of intersection 
Gf the local buckling curves with the strength curve of Equations 6.9). 
The corresponding values of hyF /w are plotted against Ne values in 
Figure 6.13. 

The resulting curve has a value of hyE/w = 800 for pure 
beam action <Piry = 0-0)ee For a relatively small) increase of) P/P 
from zero to about 0.08 the hyE/w values decrease rapidly to a 
value of 430. As ane increases, a sharp knee portion of the curve 
occurs and at Pe = 0.259 and hyF/w = 370 the curve becomes linear 
with a slight drop in hy /w topapout! 300 /as ae increases to 0.75. 
As P/ee increases further, a slightly rounded portion of the curve 
occurs with a gradual decrease in slope. The hyE L/w term reaches a 
value.or S25 £or pure columm action ere =0 1.0 ue (Uause vedue won 
hybl/weis in contrast to a value of 300 fom Class. 2 and 3- sections. 
Thensiaehtly higher value for Classe Uscections 1s due tos the effect of 
the sturdier flanges). 

The curve described above may be approximated by a bi- 


linear relationship given by: 
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hYF_/w = 430 (1-0.93(P/P_)) O82? /Peeet0.05 
y y y (6.14) 
and, 
hvYF_/w = 382 (1-0.22(P/P_) WG APS AhEO 
y y y (6.15) 


This approximation as well as the present web limitations given by 
Equations 6.12 and 6.13 are also shown in’ Figure 6.13. 

In arriving at the above approximation, point A is located 
at = =e Orand hyF L/w = 300. his value of hyF/w is used here so 
tau Lor pure column action. tne wep limrtations for Glass 1.2. and 3 
beam-columns would coincide at a value of hyF /w = 300. (As 
explained previously, the value of hyE/w = 325 for Class I Sections) 16 
due to the sturdier flanges). Point C on Figure 6.13 is located on the 
vertical axis opposite point D where the initial portion of the curve 
first deviates from the tangent to the curve at ae = 0. Through 
points A and C, tangents to the curve are drawn and extended to 
intersect at point B Ves = O85) 

The “eason for Constructing lane BC in this manner as 
twofold. In the region of low axial loads (corresponding to line CD) 
the web width-to-thickness term is very sensitive to small changes in 
the axial load. This is witnessed by the very steep gradient of the 
initial portion of the curve. Since a value of low axial load would 
bel Very ditticult to pina—point with any great degree of accuracy (in 
@ practical design case) line BG is constructed to eliminate the 
effect of this high Sensitivity for practical applications. Purther— 


more, in practical cases, it 1s very likely that residual axial loads 


of low magnitudes will be present to some degree even in members 
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designed for pure bending. This effect is also accounted for by the 
above construction. 

As seen from Figure 6.13, the theoretical method presented 
herein predicts more liberal web limitations than those presently 
required for Class 1 sections. For pure beam action at ae 2020, 
the present theory indicates a web limitation of hyF/w = 430 which is 
about 2 per cent greater than the presently specified value of 420 
(Equation 6.13). As a, imeTessesmrouULLS. hyF /w decreases to 370 
and, as Bie further increases, the maximum difference between the 
presently specified value of hYE /w and that predicted by the analysis 
presented herein occurs at ee = 0.28. At Ehis point, the presently 
specified value of hvE /w 1s 255 whereas the theory presented herein 
predicts a value about 40 per cent higher. As PPE increases, this 
difference decreases and at Te = 1.0 the theory presented herein 
indicates a value about 18 per cent higher than the presently 


specified value of hvP /w = 255), 


6.4.4 Effects of Residual Stresses 


The effects of residual stresses on the local buckling 
capacities of beam-column sections were investigated for values of 
byF/2t = 54, 64, rand) 72. USinee theseftects are isimilar inal “three 
cases, only one such case will be presented here. For a value of 
flange slenderness of 54 (corresponding to a Class 1 section) and 
various values of web slenderness, beam-column interaction curves are 
shown in Figure 6.12 for ose ae and in Figure 6.14 for a 


theoretical value of oe = 0. 


The rounded knee portions of the curves in Figure 6.12 are 
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due to residual stresses which result in a gradual yielding within a 
cross-section. As shown in Figure 6.14, these rounded knee portions 
change to an abrupt transition in the absence of residual stresses. 
As can be seen, a Class 1 beam-column can perform adequately over a 
range of web slendernesses between 440 and 1000 where the residual 
stress has a theoretical value of zero. In the presence of 4 
practical value of residual stress of aa ee on the other hand, 
Figure 6.12 shows that these web slenderness values are reduced to 


325 for pure column action and 800 for pure beam action. 


6.4.5 Effects of Strain-hardening Modulus 


The effect of varying the strain-hardening modulus on the 
local buckling capacities of beam-columns was studied for flange slen- 
derness values of 54, 64, and 72. The same three values of strain-hard- 
ening modulus used in the study of column and beam local buckling were 
also used here. For bye J 2t values of 72 and 64 and practical values 
of hyF/w between 300 and 800 as used in the interaction diagrams and 
shown in Figures 6.8 and 6.10, the values of Pe investigated had no 
etrect.on local buckling capacities. Sor 'Class DP usecticns (bYF /2t = 
54) and practical values of web slenderness between 325 and 800 (as 
used in Figure 6.12) the effect of varying the strain-hardening modulus 
iS (Sicnificant for “certain Rernee of hy FL /w. 

For the values of strain-hardening modulus considered, 
Figure 6.15 shows the interaction curves corresponding to bvF/2t = 54 
and values of hvF /w of 325, 500 and 800. These three values were 
chosen as being representative of the range of web slendernesses 


considered practical for Class 1 sections. When byF /w = 325, the 
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effect of strain-hardening is present over the entire length of the 
curve. For pure beam action oc =(O)}"thetéftect ot the strain-— 
hardening modulus is quite significant. As ae increases this effect 
diminishes and is least significant when pure column action Cel = 
1.0) is approached. As hyF/w is ineréased the significance of Strain— 
hardening (for the values investigated ) becomes less noticeable. At 


Ed = S00 stheteitect or varying E. is noticeable at the point of 


iE 
pure beam action Ur =~ 0)2) 2As ue increases, this effect decreases 
and is no longer evident for values of an between 0.5 and the critical 
Woeicl Wey enWone 9 7s bYF/w is further increased, the effect of varying the 
strain-hardening modulus over the range considered also decreases. At 
hYF/w = 800 no effect of changing the value of the strain-hardening 

modulus is evident. As can be seen from Figure 6.15, for the range of 
values of strain-hardening modulus considered, a Class 1 beam-column 


section has adequate performance with regard to local buckling 


capacity. 


6.4.6 Effects of Specimen Length 


It has been thoroughly demonstrated by several investi- 


eyo Co Fes 2o Thist coitical plate buckling stresses approach 


gators 
relatively high values with decreasing values of aspect ratio (the 
Eatro. OF the length of a platesin the direction of uniaxial (stress £0 
its transverse dimension). At a theoretical aspect ratio equal to zero, 
the critical buckling stress is imfinite and as the aspect ratio in- 
creases for a given specimen, the predicted critical buckling stress 


rapidly decreases. At some point a value of the aspect ratio will be 


reached above which the predicted critical stress becomes stable. This 
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behaviour is illustrated in Figure 6.16 for a column having a flange 
slendermess value of 72 and a web slenderness value of 300. As the 
fengen> [jinereases fromizerc.sthe critical load ratio drops rapidly 
and reaches a stable value for length values greater than 12. This 
Corresponds tO an aspect ratio of 2.4 for the flances and 1.2 for the 
web for this particular specimen. 

Investigations similar to the above have been carried out 
for additional columns, beams, and beam-columns of various dimensions. 
From this analysis it was determined that stable values of critical 
local buckling stress would be reached for all specimens having 
minimum aspect ratios of 4 for the flanges and 2 for the webs. 

Figure 6.17 summarises the findings of this investigation 
by showing the length effects on the interaction diagrams of Class 1 
beam-columns having web slenderness values of 325, 500, and 800. A 
Class 1 beam-column was chosen so that the length effect could be 
evaluated for a range of values of load ratio and moment ratio as well 
as 2 vance of material conditions from elastic to fully strain= 
hardened. These include those values that occur: (1) at an elastic 
or partially yielded stress level (hv /w = 800)5 (Ze at en elastic, 
partially yielded, or a strain-hardened stress level (hyE  /w = 500), 
and (3) at a strain-hardened stress level (hyE/w = 325). 

Bach curve in FPicure 6.17 was plotted for values of ‘the 
feneth, U,, oft 15, 20, 25, and 30. Inese values correspond to flange 
aspect ratios of 3,°4, 5, and 6, and to web aspect ratios of 1755) 2.0; 
2.5, and 3.0. For all specimens the length effect is negligible in 
the region for which uae > De This corresponds to the region 


where complete yielding has occurred and strain-hardening is imminent. 
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Presumably a negligible effect of the variation of aspect ratios 
investigated occurs in this region because of the reduced stiffness 
of the material in the strain-hardening region. In the elastic 
region (the initially flat portion of the curves corresponding to 
hyF /w = 500 and 800) and the partially yielded region (the 
remaining portion of these curves up to the line Ch las nD 
the length effects are noticeable. For all cases considered 
however, the length effects are negligible for values of length of 
20 or greater. A length value of 20 corresponds to a flange aspect 
ratio of 4 and a web aspect ratio of 2, “As a result of this 
investigation, these aspect ratios were the minimum values used for 


all specimens in the parametric studies presented herein. 
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Chapter 7 


SUMMARY AND CONCLUSIONS 


fel introduction 


The problem of local buckling of flange- and web-plate 
components of W-shapes subjected to axial compression, flexural 
compression, and axial and flexural compression combined has been 
extensively investigated. A review of the available literature in 
this area has revealed that a few investigators have previously 
attempted to deal with various aspects of this problem which is complex 
with respect to the practical difficulties of laboratory testing as 
well as with respect to theoretical modelling. At the present time, 
among the more notable contributions in this area are those of Haaijer 
and Thurlimann ~pBletch°. Timoshenke °“°s and Kulak 2 727° "*. “Invall 
cases, however, the theoretical investigations have been either totally 
or partially empirical or semi-empirical in nature. Futhermore, only 
the latter investigator has attempted to include all aspects of the 
problem in an experimental program for Class 1, 2, and 3 sections 
subjected to the three types of loading mentioned above. The present 
investigation is an extension of this work and is primarily an attempt 
to formulate a sound theoretical basis for predicting both elastic and 
inelastic local buckling capacities of W shapes. In the following 
sections the scope of the theory is summarised, the findings are 
discussed with respect to existing design limitations and suggested 


modifications are indicated. 
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7.2 Summary of the Theoretical Method 


The theoretical method presented herein has been 
formulated for the analysis of local buckling capacities of uniform 
members of W shape cross-sections. These members may be end-loaded 
in axial compression, flexural compression or combined axial and flex- 
ural compression. The flange - web restraint interaction is included 
directly in the formulation and the ends of a member may be rigidly 
supported or pinned with respect to plate buckling. The presence of 
residual stresses is accounted for by including their effects directly 
in the formulation of the local buckling geometric stiffness matrices 
of the plate components. Using an eigenvalue matrix iteration tech- 
nique the elastic local buckling capacity is determined. If this 
value exceeds the proportional limit, an applied linear strain is 
gradually incremented above this limit and, at each level, gradual 
yielding of the section is evaluated and the position of the neutral 
axis is updated so that equilibrium conditions on the cross-section 
are satisfied. The member is then analysed for a critical eigen- 
value strain. Essentially, when the critical eigenvalue strain is 
zero, the applied strain corresponds to the critical buckling strain: 
In this manner, the increase in strains and gradual yielding of a 
cross-section simulate actual conditions. Because of the flexibility 
of the shape functions used in the formulation, the method is capable 
of predicting separate flange or web buckling or a combination of both. 
7.3 Summary of Findings 

The present theoretical method has been verified by com- 
parison of predicted results with the results of 53 test specimens of 


various dimensions and subjected to various load combinations. 
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Additionally, in the elastic range, the method gives results which 


agree with those predicted using widely acceptable classical 


methods?’®. A large number of hypothetical beams, columns, and beam- 


columns for each class of section has also been investigated. As a 
result of this study the analytical method presented herein indicates 
that the present code limitation for flanges of Class 3 sections is in- 
adequate. This limitation is based on a purely theoretical torsional 
analysis of the flange’. For Class 1 and 2 sections, on the other hand, 
the analytical method presented herein substantiates the flange slender- 
ness limitations of 54 and 64 which have been well established by ex- 
perimental investigations. It is clear therefore, that the same theory 
which substantiates flange slenderness values of 54 and 64 based on 
experimental results for Class 1 and 2 sections, casts doubt upon the 
flange slenderness value of 100 based on an approximate torsional anal- 
ysis of a Class 3 section flange. Assuming the above flange modifi- 
cation as indicated, presently specified web plate width-to-thickness 


limitations may be increased for columms, beams, and beam-columns. 


7.4 Recommendations for Design 


As a result of the theoretical investigation presented 
herein certain modifications of the present code values* of plate 
width-to-thickness limitations are indicated. These modifications 
apply to W shapes subjected to axial, flexural, and combined axial and 
flexural loadings that are uniform along the member lengths. 
Additionally, certain flange width-to-thickness limitations presently 
set by the code have been substantiated. These results, as summarised 


im Pleure 7.0, are disciissed in the following sections. 
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7.4.1 Class 1 Sections 


The present theory substantiates the use of byF/2t = 54 
for the flanges of Class 1 sections. It is indicated that’ the present 
limitation of hy /w = 255<f0r pure axial) loading can be ssately 
increased to 300. For pure flexural loading an increase of hvF /w 
from the present code value of 420 to a value of 430 is indicated. In 
the intermediate range,where combined axial and flexural loadings occur, 


the following increases in hv /w are indicated: 


it 


hvF /w = 430 (-0.93 (P/P)) 0 < P/P < 0.15 
y y y 


(6.14) 


hyE /w 382° (1-022 (P/P.)) O25 P/P. Seat 


(Gao) 
For these values the present theoretical method indicates that the 
following maximum moments reduced for axial load, can be sustained for 
adequate plastic design behaviour: 


pe Pp (6.9(a)) 
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las) M, ee) On Su< Pb / Pees) 


ie y (6.9(d)) 


lpune “Class 2 Sections 


According to the present theoretical method, the value of 
bYF /2t = 64, as presently set by the code for Class 2 sections, is 
y 
adequate with respect to local buckling provided that the maximum 


reduced moment value is set at: 
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M =M (1=P/P) 
ra . (6.10) 


For pure axial loading it is indicated that the present web limitation 
of hyE /w = 255 can be increased to 300. For pure flexural loading 

the present value of hyF /w = 520 can be increased to 660. In the 
intermediate range of combined axial and flexural loading the following 
increases are indicated: 


hyve w =1660)l-0-55.0P/ 2.) sk0e= P/P) < 120 
y y y (6.1D 


Peeese Class. 3) Sections 


The present theoretical method indicates that the value of 
byF,/2t = 100 for flanges of Class 3 sections is too high. A reduction 
to a value of 72 is indicated. In the presence of pure axial loads the 
present value of hyF /w = 255 can be increased to 300 and, for beams, 
the present code value of byF /w = 690 can be increased to 725. In the 
intermediate range where combined axial and flexural loadings occur the 


following increases are indicated: 


hyF /w = 725 (1=0.59 ENE Om oe <1,0 


(6.6) 
For these values a maximum moment value of 
M =M_ (1-P/P_)) 
Be Ree y (6.5) 


can be reached in the presence of axial load. The above indicated 


modifications for Class 1, 2, and 3 sections are summarised in 
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Picure 7.1. 


7.5 Further Recommendations 


As a result of the tests performed by Kulak 


LOs Les e5 sys . oe . 
i>" -amereases im web limits for Class 2 and 3 sections 


et a 
have recently been implemented by the present code’. The theory 
presented Nerein indicates that these increases are also justified on 

a purely theoretical basis. Furthermore, according to this theoretical 
method, additional increases in web slendernesses are indicated with 
the reservations that Class 3 flange limits be set at bYF/2t = 72 and 
that ie for Class 2 beam-columns be limited to the value given by 
Equation 6.10, Increases im web limits for Class 1 sections are also 
indicated by the theoretical results presented herein. 

Before these additional increases are implemented, however, 
it 1s suggested that further testing of laboratory specimens be carried 
out. These tests should be performed in the light of certain 
implications arising from the present theoretical analysis. The items 


of particular relevance to test specimens and testing procedure are 


listed below: 


i" End Conditions 


As nearly as possible, the end supports of test specimens 
should approximate simply-supported plate edges with respect to local 
buckling. For axially loaded members this is not a difficult problem. 
However, for members that must be subjected to axial and flexural loads 
combined, it would be necessary to use end-moment connections requiring 


very rigid support of the plate edges. A solution to this problem 
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would be to use members sufficiently long so that the effects of 
rigid edge restraints are reduced. An aspect ratio of at least 4 


for webs and flanges is suggested. 


2. Lateral Support 


To ensure a local buckling mode of failure, adequate 
lateral support must be provided in order to preclude overall lateral- 
torsional instability. Lateral supports should be designed so as not 
to interfere with local buckling. It is suggested that knife-edge 


lateral supports be placed at web-to-flange junctions if possible. 


3. Residual Stresses 


If local buckling is expected to occur in the elastic or 
partially yielded regions, an exact determination of residual stress 
magnitude and distribution is especially important. In the present 
correlation of theoretical and test results this information was not 
available and therefore, typical values had to be assumed. As a 
result, partially due to this lack of information, discrepancies 
between theoretical predictions and test results are evident. Future 
experimental investigations of local buckling should incorporate the 


exact determination of residual stresses as part of the test program. 


4, Material Properties 


At the present time there are conflicting opin- 


so22s2 49272 a5 to What values Of material properties are appii— 


ions 
cable in the range of strain between the yield strain and the strain 


at the onset of strain-hardening. Further investigations in this area 
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would be desirable. Values of the strain at the onset of strain- 
hardening as well as values of the strain-hardening modulus were not 
available for several of the test specimens referred to in the present 
investigation. Therefore, typical values had to be assumed and this 
partially contributed to discrepancies between theoretical predictions 
and test results. In future testing, it is recommended that attempts 
be made to determine strain-hardening strains and moduli during stan- 


dard tension coupon tests. 


7.0  Conelusions 


A sound theoretical analysis similar to a finite strip 
technique has been developed and verified for the purpose of determining 
critical local buckling loads for W shape structural members. These 
members may be end-loaded by axial loads, flexural loads, or axial and 
flexural loads combined. The method predicts local buckling of flanges 
and webs in the elastic and inelastic ranges and the interaction of the 
flanges and web is accounted for in the formulation of the problem. 
Also, the effects of residual stresses are included directly into the 
theoretical formulation. The calculations were performed by computer 
and the theoretical results were verified by comparison with available 
test results as well as with the predictions of classical analysis for 
elastic plate buckling. 

A wide range of Class 1, 2, and 3 sections of varying 
dimensions were analysed for axial loadings, flexural loadings, and 
axial and flexural loadings combined. As a result, interaction diagrams 
were generated for each class of section and these diagrams were used 


to determine maximum web limitations for a range of axial loads varying 
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from zero to the yield load. It was generally indicated that present 
web limitations are too restrictive and appropriate increases have 
been suggested. Additionally, it has been suggested that more 
testing of laboratory specimens be carried out and appropriate 


recommendations have been made regarding the design of such tests. 
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APPENDIX A 
DERIVATION OF A PLATE BUCKLING CONDITION 


A-l Introduction 


im this séction a plate buckling condition is established 


using the principle of virtual work’°°*°*? For a body in “equi la braum, 
the principle states that the work done by an internal equilibrium 
stress field, ep Es equal to the work done by the slrtace tractions:, 


Ts when the body is subjected to a virtual displacement field, Su, - 


The principle may be expressed as follows: 


(G1) 


where in is the virtual strain field resulting rom ia virtual 


; Vo (refers to uthe volume, andi s sreters to 


displacement field, ou, 
the surface area over which surface tractions, Ts are specified. In 


this expression, the effects of body forces, Fo have been neglected. 


A-2 Assumptions 


In the following derivation it is assumed that: 
1, “second order strain terms resulting from in-plane 
displacement components due to buckling are small and 


may be neglected®. 


ip) 


at Ehe point Of bliurcation of a plate, 7an in-plane tox 


a buckled equilibrium configuration is possible while 
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the system of external forces remains constant, 

3. a state of plane stress’° exists within the 
plate, 

4. the plate thickness is small relative to the surface 
dimensions, 

5. deflections are small relative to the plate 
thickness, 

6. straight lines perpendicular to the middle surface 
of an undeformed plate remain straight and 
perpendicular to the middle surface after 
buckling, 

7. longitudinal strips of a plate may be elastic or 
inelastic, 

8. stresses are constant or vary linearly across 
the thickness of a plate, 

9. stretching of the middle plane of the plate during 


buckling is small and may be neglected. 


A-3 Strain - Displacement Relationships 


The strain - displacement relationships in tensor form 


; 8 
may be written as follows 


i 
ee aac on 8 CRE we Cn Ae COE rey oe) 
i eee Lal dia8 Ki kg (A-2) 
where 1,j, and « cyclically represent the subscripts xy, yand 2 
corresponding to Cartesian coordinates. In this and subsequent 


expressions, the comma-notation is used to represent differentiation, 
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A~-4 Displacement Components 


Figure A-l shows a plate oriented in a 3-dimensional 
Cartesian coordinate system. The displacement components of a point 


in the middle plane of the plate during buckling are given as: 


uo =u’ (A-9) 
Ves (A-10) 
w= Ww (Ami) 


Figure A-2 shows a portion of a plate before and after 
buckling in the x - y plane. During buckling, a point P moves 
tangentially to P' by a distance u'. Due to out-of-plane deflection, 

Pe moves to P bya distance equal tow. As a fesult-of rotation oF 

a cross-section of the plate, P'"’ moves to P'''. Making use of 
Assumption No. 5 concerning small deflections, and recognizing similar 
observations for buckling in the y - z plane, the following displacement 


components are obtained: 


iS el ew, (A+12) 
y= vy = Bue (A-13) 
Ape Ah (A-14) 


Using these results in Equations A-6 to A-8, the following strain- 


displacement relationships are obtained: 
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A=) Application of the Principle or Virtual Work 


Using Equations A-15 to A-17, the left hand side of 
Equation A-1, for the case of plane stress, (Assumption No. 3), may 


bemwiltten as) nollows: 
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In developing this expression, the following relationships were used: 


On wocee = 10 .0er aor oe +o é6e 
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per unit length of a plate having a thickness, 
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(A-20) 


(A-21) 


(A-22) 


(A-23a) 


(A-23b) 


(A-23c) 


(A-24a) 


(A-24b) 


(A-24c) 


> and eC are moments 


The first integral on the right hand side of expression 


A-18, may be integrated by parts as follows: 
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du’ (N +N )dxdy - év' (N + N )dxdy 
x,X XY 5Y <8 Yoy XY »X : 


(A-25) 


where a and b refer to the length and width of a rectangular plate as 
shown in Figure A-l. The first two integrals of this expression 
represent the virtual work done by the applied forces per unit length 
evaluated at the boundaries of the plate. If body forces are 


Soe require that the last 


negligible, the conditions of equilibrium 
two integrals of this expression equal zero. Therefore the first 
integral on the right hand side of expression A-18 represents the 
virtual work done by the applied external forces acting through mid- 
plane displacements. 


It is assumed that the strain in the middle plane of 


aiplate at buckling is negligible. . Therefore, from Equations A-15 to 
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expression A-25 gives: 
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Using this relationship in Equation A-18, the left hand side of 


Equation A-l finally reduces to: 


| o,.0e,.,dV = | M ow, +™M ow, + M dw, dxdy 
haces ei ey yy 


(A-30) 


The right hand side of Equation A-l represents the work done 
by the Surface tractions when the body 1s subjected to a virtual dic- 
placement field. This quantity has already been evaluated in 
expression A-29 above. Using expressions A-29 and A-30, Equation A-1 


finally reduces to: 
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In this equation, the integral on the left hand side represents 
the strain energy of bending of an equilibrium stress field when a 
virtual displacement field is superimposed on a buckled configuration. 
The integral on the right hand side represents the virtual work done by 
the in-plane stresses acting at the boundaries. In this form, Equation 
A-31 defines the buckling condition of a plate subjected to in-plane 
stresses. 

In the present analysis, the equilibrium stress field is 
derived from the general stress-strain relationships for an orthotropic 
plate. The moments per unit ene. Gen be expressed in terms of the 


plate deflections as follows’: 


M, =- LE cae xy yy Cee) 
=> - NT = D 
My DS yy yx" Xx (A-33 
ee) . 
one 26 Iw 2, (232) 


where Ae (DS) Bi hata! i are plate bending rigidities, e is the tangent 
shear modulus, and I is the moment of inertia per unit length of the 
plate. These properties are further discussed in Appendix B. 

Substituting Equations A-32 to A-34 into Equation A-31, the 


buckling condition for a uniaxially stressed plate may be expressed as: 
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+ 4G Iw, dy - = 
iw ft see Oe lel NW, ow, dxdy 0 
(A-35) 


A-6 Development Of 4 Matrix Buckling Condition 


The first integral of Equation A-35 leads to the bending 
Stiziness Matrix of a plate and) the Second intesral results im 4 
Seemerhic Stifiness matrix. Thersubscripe, x, refers to intesration 
along the length of a plate, and the subscript, yy, refers to muntegration 
along its width. In the present analysis, the integration along x is 
continuous since material properties along the length of a strip of 
plate under uniaxial stress will be constant. In the transverse direc- 
tion of a plate however, the uniaxial stress may vary in intensity and 
therefore certain longitudinal strips may be yielded while others are 
Still elastic or strain-hardened. To account for this, integration in 
the y direction is done in a piecewise manner and the appropriate material 
properties, for a given strip are incorporated into the integration in 
a piecewise fashion. 

As explained in Chapter 3, a4 Rayleigh-Ritz technique is 


applied using a displacement function of the form: 


w= f<o>{6} (236) 
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interpolating functions of y only and {6} is a column vector of nodal 
coordinate displacements. Together, <b> and {6} define the transverse 
buckled shape of a plate. 

The derivatives and corresponding variations for w are 


defined as follows: 
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Substituting these expressions into Equation A-35 gives: 
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(A-41) 
where the following relationships have been used: 
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and, 
[o,] = | {o}<o>dy 
¥ (A-47) 
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y YY yy 
(A-48) 
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y Sy Sey, 
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where, for a plate of constant thickness, t, N. = One is used. 

In Equation A-41, the virtual displacement coordinates are 
completely arbitrary and therefore the relationship must hold for all 
values <69>. Therefore the buckling condition defined by Equation A-41 


may be written as follows: 
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(A-52) 
where the bending stiffness matrix, [K] is given by: 
Ki = Eo + F.[ 0 =e ® + ¢ = F.[9, 
Dea ae ee ee Coney 
where , t =" 2, 3, 4) and repeated subscripts indicate 


summation, and the geometric stiffness matrix, [Ko] is given by: 


(A-54) 


In Equations A-53 and A-54, the @ matrices are evaluated by piecewise 
integration across the width of a plate. The integration is performed 
for each strip of plate which may be in the elastic, the yielded, or 
the strain-hardening region. For each such strip, the appropriate 
bending rigidities, as defined in Appendix B, are used in Equation 


A-53. 
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Figure A-1 Rectangular Plate Subjected to Plane Stress 
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Figure A-2 Plate Buckling in the x-y Plane 
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APPENDIX B 
MATERIAL PROPERTIES 


B-1 Introduction 


The determination of material properties used in the present 
study is based on a tangent modulus concept’, and therefore, the 
material properties that determine a critical buckling strain, are those 
that exist in a plate at the instant before buckling. This concept is 
considered to give very good correlation between predicted and test 
Bescults Im anelastie buckling oF columns’? *?®, and the correlation is 


further improved with the inclusion of residual stress effects’, as in 


the present study. 


B-2 Incremental Stress-Strain Relationships 


Figure B-l(a) shows a stress-strain relationship for a strain- 
hardening material. An increment of total strain, Aé, is assumed to be 
sutficiently small so that it may be separated into an elastic strain 


: " Aig 71 
increment and a plastic strain increment ~. Thus, 


zy a pis (Bal) 


Elastic strain increments are related to elastic stress increments as 


follows’?: 


Vv 
eae, > in Sea (B-2) 
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and V and E are Poisson's ratio and Young's modulus respectively ’® 

The relationship between plastic strain increments and 
corresponding stress increments may be defined for an assumed yield 
criterion, an associated flow rule, and a work hardening rule geo 
For a material which yields according to von Mises yield 


iehey Wal 
> 


Criterion the plastic strain increment tensor coincides with the 


plastic stress deviator tensor and the following relationship may be 


i571 
“sea "=: 


Seen (B-3) 


where di is a positive constant of proportionality and the stress 


deviator tensor is defined as: 
Se aE ae Meh (B-4) 


According to von Mises yield criterion, yielding occurs when the 


second invariant of the stress deviator tensor reaches a critical 


value’?. This may be expressed as: 


where, 
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aGe Ke 2S ascriticalsconstant. 
When a work-hardening material is subjected to a uniaxial 


stress state, 0, Equation B-6 gives: 


eau) 


(ker 


(B-8) 


where O is an effective stress invariant corresponding to an effective 


plastic Strain, ae in 2 similar manner, an effective plastic Strain 


ga (P) 


increment, may be obtained. For a uniaxial stress state, 


Equation B-3 gives: 
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Combining Equations B-9 and B-10 results in the following effective 


DlaStire stLain anerement: 


AG) = 2 je Pe aey 
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Figure B-1(b) shows a plot of the effective stress ox 


= (Dp) 


plotted against effective plastic strain, e - The slope of this 


curve is defined as: 
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It is assumed that for all monotonic loading paths the same 6 - @ 
felationship is obtained. 
Combining Equations B-8 and B-11 with Equation B-10 gives: 
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where the value H' is defined in Equation B-12. Substituting this 
value of dA into Equation B-3 gives the following relationship between 


plastic strain and corresponding stress increments: 


H'G “ij (B-14) 


Referring to Figure B-l(b), the slope of the effective stress 


VSLe Plastic Strain curve 1s civen by; 
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(B-15) 
where Aé is the total effective strain increment, AO is the effective 
stress increment, and E is Young's modulus. In this relationship, Ao/E 
is the elastic portion of the total strain increment. Multiplying the 


numerator and the denominator of Equation B-15 by E/Ae and taking the 


limit gives: 
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where the tangent modulus is defined as: 


é G17) 


caneied Givegoteelss getyetiot ai eevtg t-t nobreup® oak 
Nedeserrinal easare gntiuensties bes 


ee 3° tae" (ys 


seat ia ainty Anita sda To wqule sit ars ocugt? oy a. i 


= = 


vd asetg 8) 2Vited Blaze 3 
# 


arn a4 
gurysetts ane ot. Pt. ,femessont uiasie ostza9Tts fetes anf et 34 " 
W\Tk _ .poriarotzatss ety Bt guluboo o'ynud? a} 2 Saa , season’ oe a? 
ana ghtviqhstit gpbaessat ofs2da fasc7 ald To motiaeg sttests sia to 


ale gitley Bee st\S ed 2i-8 wolsaipi 1 -ttentmoast add bas to%ss 


. ae, 
q- 
(al=&) ; 
ite vont sé eb atfebed tasgnet 
(Tink) 7 


wv a - 


178 


B-4 Stress-Strain Relationships for Plane Stress 


In the case of plane stress”, 


Zz ox MZ (B-18) 


and the effective stress for this case may be obtained from 


Equation B-8 as follows: 


Be (B-19) 
The effective stress increment is obtained from Equation B-19 as: 


a0 = Jy |e = On) diet 120.5 Os dO. One an 
20 x y x y x y ae ei 


(B=20 ) 


In the present analysis a plate element before buckling is 
in a uniaxial stress state defined by cL # 0, o = i 2 a aingl 


Ehererore: 


Immediately after buckling thé same element is subjected to a State of 
plane stress. In applying a tangent modulus theory, only the resulting 
imerement of effective stress is of imterest, and it is given by 


Equation B-20 as: 
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The corresponding increments in plastic strain are obtained by using 


these values of 6 and do in Equation B-14 where ae is the stress 


deviiator tensor for a state of uniaxial stress prior to bueckiine. The 
resulting plastic strain inerements are: 
do do 
de (Pp) Se yee 
x H' 2h (B-23) 
do do 
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y 2u 4 on! (B-24) 
(2) 
oe = 0 (B-25) 


Combining Equations B-2, 8-23, B-24, and B=25 with 


Equation B-1, the increments of total strain may be obtained for the 


strain-hardening region as: 
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B-5 Stress - Strain Relationships for an Orthotropic Plate 


For the general case of a homogeneous elastic body, the 


generalized stress - strain relationship is given by ©: 
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Oya = Gemeene 

14 slag yisalh alii (B-29) 
where Sie is a fourth-order tensor representing a total of 81 
constants. This number is reduced to 21 independent constants when 
the symmetry of the stress and strain tensors, and the existence of a 
potential energy function are considered®?*&>7*, 


if) aumaterialcis-orthotropic andi the x, y.vand Zz axes 


coincide with the principle directions of the material, the following 


stress-strain relationships apply ok 
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WP ee v. v "a 
yx Se. xy ZX a XZ ZY = yz 
E E 7 & Ro  £ E 
Vv x Zz xX Zz. Vv (B-36) 


- - 


Referring to Equations B-30 to B-35, the incremental stress — 
strain relationships for an orthotropic plate element subjected to a 


state of plane stress may be written as follows: 
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B-6 Effective Moduli in the Strain Hardening Range 

A steel plate subjected to a uniaxial stress yields by the 
formation of slip bands along preferential shear planes characterised 
by a dissipation of minimum plastic distortional energy © 7°, For a 
thin steel plate these shear planes will be normal to the stress axis 
and inclined with respect to the middle plane of the plate. Asa 
result, in the strain-hardening range, the steel plate will be ortho- 
tropic at the instant before buckling. 


Based on a tangent modulus theory, the effective moduli in 


the strain-hardening range may be obtained by comparing Equations B-3/ 
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Using the results of this 


comparison and the value of H' as given by Equation B-16 gives the 


following effective tangent moduli: 
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and the corresponding Poisson's ratios: 
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B-7 Material Properties Used in the Present Analysis 


In the elastic range, the tangent modulus is equal to 


Young's modulus, E, and Equations B-40 to B-44 reduce to: 
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In the yielding range, the tangent modulus B. = 0 and Equations 


B-40' to B-44 give: 


ap 9 (B-48) 
G. = G (B-49) 
Ve = 0.5 (B-50) 
Ve = 2 20 (3-51) 


The results given by Equations B-40 to B-44 were originally 
presented by Handelmann and Prager’-. However, since that time it has 
been well recognized that these values may result in significant error 
in the prediction of inelastic critical plate buckling stresses. It 
has further been observed that these discrepancies are mainly due to 
an over-estimation of the effective shear modulus, Gy at stresses 
AION (NS Gare SVP ay 

For BE = 29,600 ksi.and ) = 0.3, Equation B-42 gives a value 
of or = 11,385 ksi. Using experimental results, Haaijer and Thurlimann 
determined that the value of G.. for steel above the yield should be 
between 2000 and 3000 ksi:’, With am actual value selected at 2400) ksi. 
This 79 per cent reduction in the theoretical value of ee which re- 
sulted in better correlation with test results, was attributed to the 
effects of initial imperfections. Independently, ley: disregarded the 


effects of initial imperfections and, using slip) cield theory, predicted 


a value of Goof about GO00 ksi, —Asea result or this work, lay 
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presented the following expression for the tangent shear modulus for 


strain-hardening: 


ZG 
t E 
1 +———— 
4E (GES) (B-52) 


where G is the elastic shear modulus, E is Young's modulus, E. is the 
tangent modulus, and Wis Poisson's ratio. For B= 29,600 ksi, ¢G = 

Diese soksi... Y= 023, and EY = 800 ksi., Equation B-51 gives a value 

of ee = 2806 ksi. In the present study, Equations B-40, B-41, B-43, 

B-44, and B-51 are used to determine material properties in the 


inelastic range. 


B-8 Plate Bending Rigidities 


The plate bending rigidities Di, De, Din. and D were 
nay, xy yx 
introduced an Appendix A. Im terms of the material properties 


discussed previously the plate bending rigidities may be expressed as 


follows’?. 
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where I is the moment of inertia per unit length of a plate. 
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APPENDIX C 


COMPUTER PROGRAM 


Cal eineEcoductron 


This appendix contains a listing of the computer program 
which was developed and used to predict the test results presented 
in Chapter 5. It was also used in the parametric study presented in 
Chapter 6. The program consists of one main program and forty-one 
subroutines. The symbolic. names used in the program are defined in 
the first subroutine in which they are principally used. The purposes 
of the main program as well as the subroutines are explained by 
extensive comments placed at the beginning of each. Numerous comments 
are also used throughout the program to segment and explain blocks of 


logic. A general outline of the program is given below. 


C-2 General Outline 


The number of specimens to be analysed, the modulus of 
elasticity, and Poisson's ratio are read in in the main program. 
Values indicating the type of cross-section (either a single plate or 
a W shape configuration) as well as the type of edge supports and the 
fype Of loading are also read im.) hese, was well °as thevcther vari— 
ables are explained in the comments at the beginning of the program. 

The main routine calls one of PLATE], PLATE2, PLATE3, 
PLATE4, or PLATE5 depending on the type of problem. PLATE] and PLATE2 


are used to analyse single plate configurations while PLATE3, PLATE4 
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and PLATE5 apply to W shape configurations used for columns, beams, 
and beam-columns, respectively. As stated previously, the functions 
of these subroutines are fully explained by comments inserted at the 
beginning of each one. Each of the PLATE-series of subroutines reads 
in additional information necessary for the solution of a problem. 
Since many aspects of the PLATE-series of subroutines are similar, it 
will be assumed here (for the purpose of continuing with the general 
outline of the program) that PLATE5 has been called from the main 
routine. 

PLATE5 analyses a W shape section loaded as a beam-colum. 
At the beginning of this subroutine all subsequent data necessary for 
the analysis are read in and section properties and residual stress 
values are calculated. This subroutine, during iteration, must 
calculate several critical local buckling loads before the correct one 
isedetermineds *lherteristical cexialload (erthereelastic or amelastic) 
is first determined and compared with the applied axial load. If the 
applied axial load is less than the critical one, the analysis for the 
critical superimposed bending moment continues (using an iterative 
technique if inelastic action occurs). 

As explained by the comments within the subroutine, each 
time a critical load is calculated, PLATES calls three additional 
subroutines which calculate tension and compression flange stiffness 
matrices as well as the web stiffness matrix for an assumed value of 
strain. A fourth subroutine, ESFORM, is then called. ESFORM 
formulates the flange and web plate stiffness matrices into a total 
global stiffness matrix for an assumed number of half wavelengths of m. 


A matrix iterative subroutine, EIGEN, is then called by ESFORM to 
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calculate the corresponding eigenpair. This process is continued 
for values of m incremented by unity until a minimum eigenvalue is 
obtained. This value is returned.to PLATE5 and compared with the 
previous value and if convergence has not occurred the entire 
process (beginning with new flange and web stiffness matrices) is 
repeated. 

When this process has converged, the resulting eigenvalue 
is used to calculate the corresponding critical bending moment in 
subroutine MCGALC. The critical axial load and the exitical 
superimposed bending moment as well as the applied load, deformed 
configuration during local buckling, and other pertinent data are 
printed out as illustrated in the sample problems presented in 
Appendix D. 

In subroutines, PLATEL and PLATE2, since only elastic 
local buckling stresses are considered, it is necessary to formulate 
flange and web stiffness matrices only once. Iteration on the 
number, m, of half wavelengths must still be performed, however. In 
subroutines, PLATE3 and PLATE4, for columms and beams, respectively, 
the entire iterative process must be carried out when inelastic 


local buckling stresses are required. 


sis shealip aie issizivs eathheysrs0s oth sent 
(nskaise arty Daa Sool teks fen?ttvo alt -OTAGM = 
bemokel (RGD HALEY wit on Tivw ea snsaem gatbasd) benve 

| we agab Snaebgyeg Sedto ane ,gobidoui: Insot goowh 2 TH03 

a) Sarueiery wealdese wiquee oc7 ci dotatseulif es al 


i} 
abséate “ten sacra Stat oes TATA ,asnigvordue af 
stefawiod of yoTeeenan a2) 21 ,bevehienos ats soueetie ree 
ag na Welt? .eane vine s99isteq aesntitie daw bas ognald | 

nt Vewewad: hampettzey od ints tem afignefavew Pad Be yn exert 


“ieuriongter paawel hae-eandles su? TALL bon -CSTAS noriswoidig — 
nites tem) cette Jde bacivss: 96 Jtot 2a0cntq avisatesdi «sivas add hic 
- 


A 


i 


ustrsvps? sie esesaTie. git bioad 


aa 


ey _ 


Listing Of 


Computer Program 


£90 


70 snigars 


mergnys wuqnod 


ormsInvwruUunNn — 


10 


ia} 


ONNAANANANANHANANNANANANADANANNDANNNAANAANANANANANNHANANNANANANANANANNANNNNHAHAAAANAD 


10 


20 
30 


40 
so 


(xe) 
7° 
80 


Te} 
100 


c 
c 
c 
c 
c 
c 
c 
c 
(= 
c 
c 
c 
c 
c 
c 


10 


&CAL 
€0 BE AWALYSED 


MAIN PROGRAM 
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LOADED PLATES 
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FOR AXIAL 
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LTYPE DESIGNATES THE 


FOLLOWS: 


VALUE OF LTYPE 


PUN 


DTYPE DESTONATES THE TYPE OF PEATE(S) As 
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VALUE OF ITYPE TYPE OF PWATE 

1 PINNED-FREE 
2 FIXEO-FREE 
3 PINNED-PINNED 
4 PINNED (TOP)-FIXED (BOTTOM) 
s FIXEO (TOP)-PINNED (BOTTOM) 
6 FIXED-FIXED 
7 W-SHAPE 

NOTE: FOR BENDING OR AXIAL PLUS BENDING THE 
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COMPRESSION ZONE. 
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PREFORMED. 
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THIS ROUTINE CALCULATES THE SHAPE 
FUNCTION COEFFICIENTS FOR A COMPRESSION 
FLANGE, AND STORES THEM IN MATRIX CT(1,J) 
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SUBROUTINE COEFT c 
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BF = WIOTH OF FLANGE c 
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SUBROUTINE COEFT(BF) 
IMPLICIT REAL*8(A-K,0-2) 
COMMON /BLKB/CT(7,8),FT1(5,5),FT2(5,5),FT3(5,5),FT4(5,5),FT5(5,5) 
DO 10 Jt1,8 


DO) fo (e177 
10 E€T(1, Jd) =0.0D0 

CT(1,2)20.5D002BF 

cCT(1,4)2-BF 

eC Gish 105) 364) 

Ent 23) thos 

S27 Aiea ee O 

CT(2,5) 2-0. 500 

cCT(2,6)20.75D0 

CT(3,3)20.125D0%BF 

ET (p3iye Se) eerie (cS as 

em arse ems .4) 

(Saplteh, BypC Seat 9) 

ET(4,.3)) 21. 000 

cT(4,4)+1.28500 

cT(4,5)2#-0.500 

CT(4,6)*-0.75D0 

Sie 9 chs le glist et) 

ET (Sy) 4) 267s, .4) 

GaSe s ees si) 

Sms Oy EC C5759), 

RETURN 

END 
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(E c 
[= SUBROUTINE COEFW c 
c c 
[e THIS ROUTINE CALCULATES THE SHAPE [e 
fe FUNCTION COEFFICIENTS FOR A WEB PLATE, c 
c AND STORES THEM IN MATRIX CW(1,4) Cc 
[= [= 
c HW = WIDTH OF WEB c 
f= Tw = THICKNESS OF WEB c 
f= BCL = LENGTH OF MEMBER OR PLATE c 
E TF1, TFE2 = THICKNESS OF FLANGES cE 
c BF1, BF2 = WIDTH OF FLANGES c 
c c 
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SUBROUTINE COEFW 

IMPLICIT REAL*8(A-H,0-72) 

COMMON /BLKS/CW(7,39),W81(7,7),WB2(7,7),WB3(7,7),WB4(7,7),WB5(7,7) 
COMMON /BLK1O/HW,TW,BCL,BF1,TF1,BF2,TF2 

el Gor Mat 4) 


DIO VOeee ts. 7 

10 cwl(l,J)2#0,0D0 
Cwl1,4):-+HWz11,000/32,0D0 
Cw(1,5)=kW13.0D0/32.0D0 
cw(1,6)=2HWt98.000/16.0D0 
cw(1,7)2-HW=11.0D0/16.000 
cw(1,8):-HW2t7,.0D0/32.0D0 
Cw(1,8)=HWs9.000/22.0D0 
CW(2,4):-HW222/64.0D0 
CW(2,5)=HW*22/64.0D0 
CW(2,6) =HW222/32,.000 
Cw(2,7):-HW222/32,.0D00 
cw(2,8)2-HW2*2/64,0D0 
CW(2,9)=HWtt+2/64 ODO 
CwWw(3,23)'0.125D0=HWt#2 
Cw(3,5):-HWs 52s 37500 
CW(2,7)=HWet2? 37500 
CWS Sis CWS Psh) 
cw(4,2)70.5DO=HW 
cw(4,4)=-HWt1.5D0 
Cw(4,6):-Cw(4,4) 
cw(4,8)2-Cw(4,2) 
Cw(S,1)#1.0D0 
cw(5,5):-6.0D0 
cw(5,7)28.0D0 
Cw(5,8)=t0,000 
cw(5,9)t-3.0D0 
cw(6,4):HW2*2/64.0D0 
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CW(5,5)=HWex2/64,0D0 
cw(6,6):=-Cw(2,6) 
CwW(6,7)2-HWtx2/32.0D0 
CW(6,8)=HWet2/64.0D0 
CwW(6,3)=HWt=2/64,000 
CW(7,4)2-HWx11.000/32.0D0 
Cw(7,5)=-cwl1,5) 
CW(7,6)=HWsS.0D0/16.0D0 
Cw(7,7)=HWr11,.000/16,0D00 
CW(7,8)=-KWr7,.0D0/32.0D0 
cw(7,9)=-cw(1,9) 

RETURN 

END 
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SUBROUTINE EICEN 


c 
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c 
THIS ROUTINE PERFORMS INVERSE ITERATION fe 

TO OETERMINE THE EIGENVALUE AND BUCKLING [<3 
SHAPE OF TRE CROSS-SECTION FOR AK ASSUMED c 
NUMBER OF HALF SINE WAVES IN THE LONGITUDINAL c 
DIRECTION. c 
WHEN A NEGETIVE EIGENVALUE IS ENCOUNTERED & c 
TECHNIQUE IS USED TO REMOVE TRE ASSOCIATED MODE c 
AND A POSITIVE EIGENVALUE IS FOUND AN EIGENVALUEC 
SHIFT LS WSeb) TO NNCREASE THE CONVERGENCE RATE. c 
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c 


sc 
ABG 


GEOMETRIC STIFFNESS MATRIX 

PRODUCT OF INVERSE STIFFNESS AND GEOMETRIC 
STIFFNESS MATRICES 

CURRENT EIGENVALUE 

CURRENT STARTING VECTOR 


won 


EVAL 
SVEC 


wow 


CECCOCCCECECCECCECEC ECC CC RECCEECESCCOCCCE CC CECE CC ECECECE CECE Cec 


SUBROUTINE EIGEN(ABG,SG,EVAL,ICG,SVEC,#) 

IMPLICIT REAL#8(A-H,0-2) 

DIMENSION ABG(15,15),SVEC(15) ,EVEC(15),AVEC(15,2),$8G6(15,15) 
DIMENSION ABGP(15,15) 

COMMON /BLK1/E,V,NS,ITYPE,LTYPE,INEL,N,ICLAMP,IKIND 

COMMON /BLK11/E1,E2,ESH,YSW,YSFB,YSFT,SRTB,SRCM,SRTT,SRCOB,SRCT 


TNT TE VAESIE OUSHy iG, AND, TiGH 
ICH=SWEEP COUNTER 

1G>NUMBER OF HALF WAVELENGTHS 
ISH=SHIFT COUNTER 


ISH=0 

1G:1G+1 

ICH=0 

Mat AGS alae gah 3) Lei) ante) Xs) 


INITIALISE A STARTING VECTOR SVEC(1) 
ABG(I ,J)=(INVERSE STIFF MATRIX)X(GEOM. STIFF. MATRIX) 
SVAL=STARTING EIGENVALUE TO EVALUATE INITIAL SHIFT 


CALL START(ABG,SVEC,SVAL) 
1SK=0 

SH=0.1D0/04BS(SVAL ) 
SH=tSH*(-1)221SH 

GO TO 30 


INITIALISE ABGP(1,J)=ABG(1,J4) AND PERFORM SHIFT 


SH=0.100/DABS(EVAL) 
SH=SH*(-1)221SH 


DO 40 J=1,N 

DO 40 J:1,N 
ABGP(1,J)=ABG(I1,J) 

Oo 66 JTFi,N 
ABGP(I,1)=4BG(1I,1)+SH*ISH 
NIT=O 


LMAxXt0,0D0 


BEGIN MATRIX ITERATION 


DO! 4100) 1=1 5 IN 

SUM=0,0D0 

pO SO Js 1, N 
SUM=SUM+ABGP(1,J)*SVEC(J) 
EvVEC(])=SUM 

1F (DABS(SUM) LE. AMAX) GO TO 1006 
Kat 

AMAXK=DABS (SUM) 

CONTINUE 


NORMALISE THE SHAPE VECTOR AND CHECK CONVERGENCE 


AVAL=1.ODO/EVEC(K) 
ADIF=0.0D0 

DO Adem Ena N 
REP=SVEC(1) 
SVEC(1)=EVEC(1)*4VAL 


DREP=DABS(REP) 
DSVECEDABS (SVEC (1) ) 
ADIF:ADIF+D4B6S(DREP-DSVEC) 
CONTINUE 


NIT=NUMBER OF ITERATIONS 
IF NIT EXCEEDS 250 CHANGE VALUE OF SHIFT 


NIT=ENIT+1 
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wide & 


ppb 
-oO 
ow 


PPP PHO PED DD 
OWOMIMHEUN= 


TES CARRE SET 1 Ob=o)) Gd: ao 130 
Die Ny Git ees On) eID MON AtZO. 
GO TO 806 


CONTINUE SHIFTING UP TO 4 TIMES IF CONVERGENCE 
1S WOT REACHED. 


-nannna 


20 ISH=1SH+1 
DE MGLSIA. Gites GiGi TON 10 
SH=0.1D0/DABS(AVAL) 
SH=SH®(-1)=*1SH 
GO TO SO 


c 
c 
c WHEN SHOPE HAS CONVERGED DETERMINE THE EIGENVALUE. 
c 
1 


30 CALL RAYLE(SVEC,ABGP,BVAL) 
EVAL=1.0D0/[(1.000/BVAL)-SK#1SH) 


c 
c 
c TF THE EYGENVACUE 1S NEGATIVE, SWEEP CUT THE 
ic ASSOCIATED MODE AND CONTINUE -OTHERWISE RETURN 
[e 
1F (EVAL.GE,©.000.AND.BVAL.GE.0.0D0) RETURN 
ICR: TCH+1 
uae Wi iletabtsae sm) teife) “Gmek take) 
CALL SWEEP(ABG,SG,SVEC,I1CH) 
GO TO 10 
140 NIT=#200 


c 
c WRITE ERROR MESSAGES. 
c 


WRITE (6,190) NIT, ISH,NS 
160 WRITE (6,180) 
RETURN 1 
180 FORMAT [ 
190 FORMAT (‘-'’,5X,’SUBROUTINE EIGEN FAILS TO CONVERGE IN 
E€TIONS AND’,13,° SHIFTS FO Res Ce Game NiOm: 4aalise) 
END 
CCCCCCCCECECCECCCECCeeCCCecCecCeccCeCcCeececCcececccecececcceccccecccce 


SUBROUTINE 5 


ccccccccecceececceeecceecececcececccceeccecceccecceececececce 


THIS ROUTINE JNTEGRATES THE GEOMETRIC 
SUBMATRICES RESULTING FROM THE STRAIN ENERGY 
ASSOCIATED WITH & STRESS GRADIENT WITHIN THE 


c 
c 
c 
i 
c 
c 
c 
c 
ES 
c 
c 
c 
c PLANE OF A PLATE. 
c 

c 


iS 
c 
c 
c 
c 
c 
c 
SUBROUTINE EPHI c 
c 
c 
c 
cS 
c 
iS 
c 


CECE CEC CEC ECECICIE CIECCE CCIECE CECUGCEE CE CCC CeceGcccccicceccccec 
SUBROUTINE EPHI(B,A,CC,C,NDF,N1,NH) 
IMPLICIT REAL*S8(A-H,O-2) 
DIMENSION JHE SF C7) Sine Cited)! ei) 
CALL EXPO(B,A,H,NH) 
Diol On sein, NM 
DO 20 J:1,NDF 
SUM:0,0DO 


DO 10 K=1,N1 
T1eKk4+1 
SUM:SUM+H(I1)*C(U,K) 
10 CONTINUE 
HC(1I,J)=SUM 
20 CONTINUE 


DO 40 I1=1,NDF 
DO 40 J=I1,NODF 
SUM=O,000 

DIO SiO Ke tint 


30 SUM=SUM+C(1I,K)=#HC(K, J) 
cc(1,J)=SuMm 

40 CONTINUE 
RETURN 
ENO 
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SUBROUTINE 6 


COPE CCCOCCCECCCECECCECCECC CCC CCCECCCCECCECC CCC CC CCOCCECE CE 
SUBROUTINE ESFORM 


c 
c c 
c c 
c c 
c c 
c c 
c c 
c c 
c c 
c c 
[= THIS ROUTINE COMBINES THE SUBMATRICES Ee 
c FSS 2 ocr ecb ALAN IDR B'S: ie OR SMEs BOM iOiM le 
c FLANGE SFivi, Fra, Fits, 6 he AND ETS OR RHE 7 :0'\P c 
[= FLANGE, AND WB1, WB2, WBE3, WBS AND WBS FOR THE Cc 
c WEB THESE SUB-MATRICES ARE MULTIPLIED BY PLATE c 
(e: BUCKLING FACTORS AND THEN COMBINED TO GIVE THE c 
c TOTAL BENDING STIFFNESS AND THE TOTAL GEOMETRIC c 
c STIFFNESS MATRICES FOR A SPECIMEN c 
c INVERSE MATRIX ITERATION IS PERFORMED FOR c 
c THE CROSS-SECTION BUCKLED SHAPE, AND DIRECT c 
c ITERATION OWN THE NUMBER OF LONGITUDINAL HALF c 
c SINE WAVES IS PERFORMED M IS AN ITERATIVE c 
c INTEGER DESIGNATIWNG THE NUMBER OF HALF SINE Cc 
c WAVES IN THE LONGITUDINAL DIRECTION. [= 
c c 
c c 


Cceccceccecccccccceececccccececcceccececcccecceceecccecececcecee 
SUBROUTINE ESFORM(EICV,MM1,XVEC,*) 
IMPLICIT REAL*®8(A-H,O0-72) 
DIMENSION SB( 15/15) SGU 1S, 1S) ,ABGI 15, 15), SBIC 15, t5)) 
DIMENSION XVEC(15,20),SVEC(15),x(20) 
COMMON /BLK1/E,V,NS,ITYPE,LTYPE,INEL,N, I CLAMP, IKIND 
COMMON BE ReEBiG7 1S enhe tS Soiree Sy Soe Bro Secor Biel S., 
ChOMMONE /BiSKiSr/ cat (uray Se) i, lela ners) apy ratees (Sige Sosagn nese (Saye s) ya anne bi 
COMMON /BLKS/CW(7,9),WB1(7,7),WB82(7,7),WB3(7,7) ,WB4(7 


* “5%, EVGENVALUE IREMATINS NEGATIVE IN 5S SWEEPS” ) 
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COMMON /BLK10/HW,TW,BCL,BF1,TF1,BF2,TF2 
1G:06 
XMIN=1.000 


BEGIN ITERATION ON THE NUMBER OF HALF WAVELENGTHS 
Bo 1460 M=1,10 


RM=DFLOAT(M) 


CALCULATE LONGITUDINAL BUCKLING FACTORS, RM1, RM2, RM2 
RmM4, RMS, RME, RM7, AND RME FOR VARIOUS BOUNDARY 
CONDITIONS. 


LES UMehAMP EO nd) GOs nom dO 
RM1=RMe2z4 

RM2=1,000 

RMI=RMEXZ 

RM4=RMIZ 

GO TO 20 


PERFORM GAUSSIAN INTEGRATION OF BUCKLING FACTORS 
FOR OTHER THAN PINNED ENDS 


CALL GOUAD(M,RM1,RM2,RM2Z,RM4) 
RMS=RM1 

RMEB=RM2 

RM7=RM3 

RM&S=RMS 

PF (TDELAMP NE .2)! GO To" 36 
CALL GOUAD(M,RMS,RME,RM7,RMB) 
LP CUT Y PES CE 25) GO T0946 

DED Pe ee ie) GOs m0 = GO 

EG la Re ee 7 eo Oat OM a.0) 


ASSEMBLE GLOBAL STIFNESSES FOR FLANGE-TYPE PLATES 


N=5 

OO 50 =, N 

DO 50 J:1,N 
SB(1,J)=RM1*FB1(1,J)+RM2*FB2(1,4)+RMZ2FBI(1,4)+RMEtFB4(1,5) 
SBS el es Sli a) 

SG(1,J)=RMS2FBS(1,J) 

SG(J,1)=sGé(1,J) 

IF (I1TYPE.E0.2) SB(S,5)#1,050 

GO T0 120 


ASSEMBLE GLOBAL STIFNESSES FOR WEB-TYPE PLATES 


Ni7 

BG) FO. 14 N 

DO 7 JEN 
SB(I,J)2RM12#WB1(1,4)+RM2*WB2(1,4)+RM3=WB3(1,4)+RMG2WBS(1, 4) 
SECs SBT ye) 
S$G(1,J3)=RM4*WBS(1,J) 
SG(J, Tp =sSeotr, J) 

IF) (LEVPELEOLS)PSEh1, 9) 21.550 
Vile (eh is Aor) SEGA DAE) felts! 
LES UlnY PES, ECrepmeSS tie th) =a0sec 
Dm Ur RVPESE ORS eS Bilit 2) e050 


ASSEMBLE GLOBAL STIFNESSES FOR W-SHAPES, 


NE15 

BO) 30. T=41,.N 

po 90 Jir1,N 

$B(J,1)#0,0D0 

SG(J,1)#0.0D0 

po 100 J3:1,5 

DO 100 J=1,5 
SB(1,J)=RMI12FB1(1,89)+RM2*FB2(1,4)+RM35FB3(1,4)+RMG2FB4(1,4) 
SB(d, 1) =SB0s 7) 

SG(1,J)=RMOtFBS(1,4) 

SG{J¥,1)#SG(1,J) 

11=1+10 

JJ=U+10 
SB(I1,JSJJ)=FRMIZFTI(1,5S)+RM22FT2Z(1,5)+RMBEFTI(1, 5) +RMS2FTA(1, J) 
SB(JJ,II1)=SB(11,J55) 

SG(I1,JJ)=RMOtFTS(1,J5) 

SG(JJ,11)=SG(11,J4J) 

DO) Ome = ctiena, 

Bo: aie ga ti7 

T4218 

SOr +4 
SB(14,34)=RMS*WB1(1,4)+RM6*WB2(1,J3)+RM7*WB3(]1,4)+RMBEWES( 1], J) 
se(ye,14)=SbB(14,54) 

$G(14,34)=:RM&=WES(1,/J) 

$G(Ye,14)2S6(14, 44) 
SsbB8(5,5)=SB(5,5)+RMI2FB1(5,5)+RM22FE2(5,5)+RM32FB3(5,5)+RMStFBS(5,5 
sG{S,5)=SG(5,5)+RM4=5FBS(5,5) 
$B8(11,11)FSB(11,11)+RM15FT1(1,1)+RM22FT2(1,1)+RM32FTI(1,1)+RMSFFTS 
ais) 

SGU, Hi Vesa, 11) eRMS=F TS 15 4) 

INVERT THE BENDING STIFFNESS MATRIX (SB INVERSE = SBI) 


CALL SINVERG GN SB SB 


MULTIPLY THE GEOMETRIC STIFFNESS MATRIX BY THE 
BENDING STIFFNESS MATRIX (ABG = SB] X SG) 


CALL MULT(ABC,SB1,SC6,N) 
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S66 
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CALL EIGEN TO PERFORM MATRIX ITERATION FOR CURRENT 
VALUE OF M. 


CALL EIGEN(ABG,SG,EVAL,3G,SVEC,&160) 
X(M)FEVAL 

OO #30 Pet Nn 

KVEC(1,M)=SVEC(1) 


SELECT THE VALUE OF M CORRESPONDING TO THE LOWEST 
ENERGY SHAPE IN THE LONGITUDINAL OIRECTION THE 
LOWEST ENERGY SHAPE OF A CROSS-SECTION HAS BEEN 
OETERMINED FROM MATRIX ITERATION 


IF (xX 
XMIN= 
MM1EM 
CONTINUE 
EIGV=xX (MM) ) 
RETURN 
RETURN 1 
END 


(M).GT.XMIN) GO TO 140 
x ( 


M) 
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(= 
c 
ie: 
c 
c 
c 
c 
= 
c 
c 
G 
c 
c 


10 
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SUBROUTINE 7 


SUBROUTINE EXPO 


c 
c 
c 
c 
c 
c 
(2 
c 

THIS ROUTINE CALCULATES THE INTEGRAL OF ¢c 

A POWER H BETWEEN THE LIMITS A AND B. c 

[3 

€ 

SUBROUTINE EXPO(B,A,H,NH) 

IMPLICIT REAL*=8(A-H,0-2) 

DIMENSION H(18) 

DO 10 T:1,NH 

E=DFLOAT(I) 

H(1)=(8ft1-A221)/€E 

CONTINUE 

RETURN 

END 
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c 
c 
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fe 
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(= 
[= 
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SUBROUTINE é 


Ceccccececeececcceceecccecccececccececcceccecccccececccccececccecce 


THIS SUBROUTINE FORMULATES THE STIFFNESS 
SUBMATRICES, FB1, FB2, FB3, FE4, FBS, FOR A 
BOTTOM (TENSION) FLANGE WHEN THE W-SHAPE IS 
SUBJECTED TO A CONSTANT AXIAL LOAD AND & 
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SUBROUTINE FBINAB c 
c 
‘S 
c 
c 
c 
VARIABLE SUPERIMPOSED BENDING MOMENT. c 

c 
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SUBROUTINE FBINAB(ST,EAPP) 

IMPLICIT REAL®8(A-H,0-7) 

DIL MEIN SHON aE UNG Tis peer dingy elicys Wa iaraig atin gpteakiia dul (ortega) een Y cl Grdiyare thence LU Grau) 
COMMON SBLKT/E,V,NS  ITYRE, UTYPE, DEL, NI TCLAMP , TKIND 


COMMONS ABEK2/ C8it7 Sh SEN Vom ovum meet >a, So) Fie si SS) mea Sy oh, S105 esa) 


COMMON /BLK4/FA,FB,FC,FO,FE 

COMMON /BLKS/ERTE  ERCM,ERTT ERC, ERCT  EYW, EYER EY Te 
COMMON /BLKE/ERTBAR,YB,Y1,AREA,ECC,ALAR,R 

COMMON /BiKLOAHW,) TW BCL SBF jah ih, Bim 2,0 ke 


COMMON /BLK11/E1,E2,ESH,YSW,YSFB,YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 


TERNAL ESE THE WS DhERNESS  SUBMATRVEES 10! (ZERO 


Do) 10) J) = 4,5 

DO 10 J#1,5 

Fei(1I,J)#0.0D0 
FB2(1,3)?0.000 
FB3(I,J)+0.0D0 
FB4(1,43)+0,0D0 
FES(1,J)=0.0D0 


ADJUST FLANGE THICKNESS TO ACCOUNT FOR 
WEB -TO-FLANGE FIObE TS 


TSAVE:TF1 
TFISBFI*TF1/(BF1-2.0D0=TW) 


INT TCALYSE STRAINS ANDE STRAIN JEIMiTS Ty M2.) lier, 
T4. 


RST = R= Sit 
EARSTZEAPP-RST 
STEA=ST+EAPP 
RSTEASRST-EAPP 
STR=1.O0DO0/STEA 


1F THE LOWER FLANGE JS IN COMPRESSION GO TO THE 
SECOND PART OF THE SUBROUTINE, CTHERWISE CONTINUE 


TF (EARST. GT .0.0D6)} GO To 200 
TISEYBF-ERTB 

TZ°=EYBF+ERCB 

haHeSih ER 6 

T&4=ESH+ERCB 

A01=ERTB+ERCB 
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678 c 

678 c EVALUATE PARAMETERS ALFB AND ALFBP WHICH INDICATE 
680 c EXTENTS OF YIELDING AND STRAIN HORDENING, 
681 ie RESPECTIVELY. 

682 c 

6&3 LER S Teaco a lila OMmTo co 

6e4 ALFB=0.0DO 

685 LLFBPtO.0D0 

686 GO TO 70 

687 20 IF) URSTEA. 6m .n2))) GO To) so 

686& IF (AD1,.EQ.0.0D0) GO TO 30 

689 ANI=RSTEO-T1 

630 ALFB=AN1/AD1 

691 ALFBP=0.000 

682 Coe mole To. 

e393 30 ALFB=1.0D0 

634 BLFBP©O.0D0 

62s GO TO 70 

636 40 TES CRSMEATE Tons. GO, en Om So 

687 ALFBt1.0D0 

686 ALFBP=0.0D00 

699 GO TO 70 

700 50 DE (RSTEA. CG. WA)! GO: TO 60 

701 TE (ADA EO. oO. COC} Go To bo 

702 ANT=ERSTEA-T3 

703 ALFBP=AN1/AD1 

704 ALFB:1.0D0 

70S GO TO 70 

706 60 ALFE=1.0D0 

707 ALFBP=1.0D0 

708 7° CACY EWCALC (BC Brit) met, 6) 

709 c 

710 (= 

Pit 4 (e CALCULATE GEOMETRIC SUBMATRIX COEFFICIENTS, FAC} 
mia (< TO Face. 

Tas c 

714 FACI=(RSTEA+ERTB)*®EFFEXSTR 

715 FAC2Z=AD1®E*#FEtSTR 

716 FAC3©(YSFB-(T1-RSTEA)*E1)2FEFSTR 
7AoT FACQG=:ADIFEVEFE*STR 

718 FACS:(YSFB+(ESH-EYBF)#E1-(TI-RSTEA)®E2)FFEFSTR 
713 FACG=AD1#FE2*FExSTR 

720 e 

riot = 

Ears c FORMULATE STIFFNESS SUBMATRICES FOR ELASTIC REGION. 
723 c 

724 Az-1.0D0 

7258 B=-ALFB 

726 IF (DABS([A=8).tT.1.0D-5) GO TO go 
727 CALC PHTUB) Abt CBs SiG ln) 

728 CAE RAIA VAGBinAy iol van Ge as ty) 

729 CARP HTP HIS Ag bl hele ces Si 6,90) 

730 CALE PHD YB, AMR LY, CES: 6.19)) 

mot CALL EPHI(8,A,EFI,€B,5,6,12) 

bieiy} DO 8o 1:1,5 

Bete} 00 60 JtI,5 

734 PBI) od) srAS Fa (13) 

735 FB2(1,J)=FBEFIVY(1,J) 

736 Festi, FCSPIFE( 15,39 

737 Fe4(1, Derry C1, oy 

738 Exe) FBS(1, FACIeFI(1,J) -FACZ*EFI(1,J) 
739 c 

740 Cc 

741 (e FORMULATE STIFFNESS SUBMATRICES FOR YIELDED REGION. 
742 c 

743 go A>-ALFB 

744 B=-ALFBP 

745 LE (DABSI(A-8)) br. 1. ObD-5)| Go TO 110 
746 EAC FWEALCUB EL Bins iit thc ab) 

747 CALE PRIS ARF t 7 CB Sei a09 

748 CARES P HI vaCBa Ae yoy GCE on lei nn) 

7ag CALL PHP RTS Ayr lhl. CBia 5) 61,99) 

750 CANE PHY UB Al EI GBi-Si,.5..9) 

751 CALL EPMINCE, A Bel )Gl..5:, 6), tz) 

752 pO 106 1=1,5 

753 DO 100 J:1,5 

754 FBEI(CT, J)tFE1(1, J) +FAsFI(1, Vv) 

755 FB2(1,J):FB2(1,0)+FBeFIYY(1,J) 

756 FERAKD JPR BS(1 J) Re=F VP IG 1) 

757 FBS (I, J)=FB4(1, J) +FDSFIV(1T, J) 

758 100 FES1, JUTE BST J) - FACIE (1 J -PACATER TCD.) 
759 c 

760 [=3 

761 c FORMULLTE STIFFNESS SUBMATRICES FOR 
762 C STRAIN-HARDENED REGION 

763 c 

764 110 A=-ALFBP 

7e5 B=0.0D0 

766 fF (OARS AS) tm. 120-5), GO) 10) 130) 
767 CALL FWOAL CIBC Brain Fle 29) 

768 CAL PHB Aik le GiB, Sep 6ny A119) 

769 CALE HIT YS Aner iY venGi on en.07)) 

770 CALL PHTPH IB, A, PIF. CB, 5), 61,8) 

Total CAC RN LYACBscavikol \nGiBumoa een 

mise CALE VEPHIW By Al ER C8).5 65 120) 

as DO 420 T2155 

776 DO 120 J=z1,5 

775 FE1(1,9)2FBt(1 J) +PAer nt, vu) 

776 FB2(1,J)2FB2(1,JU)+FSsFIYY(1, J) 

7 Tam, FEST DO tFb sito J) ir C= We Il a) 

775 FB4(1,J)2FB4(1,N)+FDSFIY(T, J) 

778 120 FBS(1,J)©FBS(1,J)-FACS#FI(1,J)-FAC6*EFI(1,J) 
780 130 Ar0.0DO0 

CHS B=OLFBP 

782 le (DABS (A-8) Gr 1.OD-5)") GO) To WSi0 
783 EAE PATE Aye  eBarh 6) 

7B4 CALE YB An ea ViviGe is 5 7eret)) 

785 CALE PHIPHI(B, A, FIFI, Ce, 5, 6,9) 

7386 CANCE RR VaBavAn Piave cba 56,19) 

787 CAML ERA Bs Aipe hun GBs Sy bilan) 

788 DO 140 11,5 

789 DO! W4O) Why Ss 


i 
790 FBI(I,J)fFBI(1,JS)+FAtFI(1I, J) 
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791 

782 
783 
7394 
73'S 
796 
Wiser 
738 
738 
800 
601 

802 
803 
BOs 
BOS 
6O6 
807 
B08 
809 
810 
811 

612 
813 
814 
615 
B16 
817 
818 
81s 
&20 

21 

&22 
822 
E24 
825 
626 
&27 
828 
&29 
630 
631 
32 
633 
836 
é35 
636 
837 
&36 
€39 
B40 
641 

842 
643 
844 
é65 
646 
847 
846 
849 
éso0 
651 

&S2 
és3 
654 
655 
éS56 
&8S7 
&S6 
853 
BEO 
&61 

852 
863 
B64 
865 
S66 
bBE7 
868 
&é&s 
B70 
871 

872 
873 
8764 
&é75 
876 
&77 
8768 
879 
&8O 
86) 

8&2 
883 
BBS 
88S 
286 
867 
8&8 
88s 
890 
83) 

8392 
833 
94 
B95 
ese 
897 
898 
898 
900 
901 

902 
303 


180 


NOMONANNN 


210 


220 


230 


250 


NON 000 


NnNann 


198 


FB2(1,J)2FE2(1,J)+FB=FIYY(1,J) 
Feat SRB (ty Comrie amt Fin tly) 
FE4(1,J)©FB4(1,J)+FDFFIY(1,J) 
FES(1,J):FBS(1,J)-FACSSFI(1,J)+FACEFEFI(1,J) 


FORMULATE STIFFNESS SUBMATRICES FOR YIELDED REGION 


O=ALFBP 

BrALFB 

TES SCB ABS VA= Bete Oba S 3) GOL nO) ALTO 
CALLS EWCALE UE Gile Bal anitoty, ele) 

CARL PH ANS Aw rel, CBG Sala) 


CARL. PRIVY BS Al mikey Wy, CB, 5, 67.) 
EAC PHP HONE AS Fe te By 5,6), 8) 
Ae me MerNa Bi Atri Fs Pay) 7 (GiB, 05 q167,90), 
CALDER ERMIN BE AWE 7GBy 56%, 12) 
00 160 11,5 

DO 160 J#1,5 

FEV(T  DSFEUT, 3) eFASEI (01, do) 
Fee 210 | SSF 62°00 |e Br YY 1) 
ses Sola ee) Cpeiaiet sa taney | 
LOM On CNMAT aT CoC etary aA Aes, 33) 
FES(1,J)eFSS(1,0)-FACSSFI(1,J)+FACSEEFI(1,J) 


FORMULATE STIFFNESS SUBMATRICES FOR ELASTIC REGION 


O:ALFB 

Bz1.000 

1F (DABS(A-B).LT.1.0D-5) GO TO 190 
CALL IFWEALCKBEL, BE1) TEi) E) 

CALL PMG DAT Pill. Geis) ,16m ta) 

CAE PADTY VICE) Alle INGE) Sal6,c7)) 

CAUCL PHIPRICE,A,FPIFY 6b, S, 6,3) 
CALL PHIVIS) A, FRY, CB, 5.6; 9) 

CALL EPHI(B8,A,EFI1,CB,5,6,12) 

DO 180 1:1,5 

DO 180 vel1,5 

PEI(T, JVSFBI(1, J)SPASE II 
FB2(1,J)sFB2(1,J)+FB2FIYY 
FEST.) RBs 1 0) SkCer wrt 
FB4(1,JS)tFB4(1,U)+FDFFIY ( 
FBES(1,J)*FBS(I,J)-FACI#FI 
TFIETSAVE 

RETURN 


PSF AGC 2 REF Y(t), (3) 


PERFORM SUBMATRIX FORMULATION FOR THE CASE WHEN 
THE LOWER (TENSION) FLANGE IS IN COMPRESSION 
HOSEN G OS Vets SG Se poe Seals nied anew A ele PME) 
INTEGRATION LIMITS ALFT AND ALFP 

Be besa Natal si Med «3 

TZ2-EYBF+ERTB 

T3:ESH-ERCB 

TQO=ESH+tERTBE 

ADEN=ERCB+ERTB 

TF WEARS. Gite. 1) GO: TO 210 

ADE Tish 5000) 

ALFP+1,000 

GO TO 260 

LES EARS et ater GO nO. 210 

IF (ADEN.EG.0.000) GO TO 2206 

ANUM=T2-EARST 

ALFTSANUM/ADEN 

ALFP=1.0D00 

CO TO 260 

ALFT=0.000 

ALFP=1.000 

GO TO 260 

PR LUEARS Ta Giese On Ot zao 

ALFT=0.000 

ALFP=1.000 

GO TO 2609 

VF CEARST .Git m4) GD TON 256 

LF) CADENDEOs O07 ODO} = GC On 25:6 

ANUM?T4-EARST 

ALFP=ANUM/ADEN 

ALFT=®O.0DO 

CO TO 260 

ALFP20.0D0 

ALFT=0.0D0 


CALCULATE GEOMETRIC SUBMATRIX COEFFICIENTS, FAC 
TO FACE 


CAD FWEAE CIBC Silt ime ed) 
FAC1:(YSFB+(ESH-EYBF)=E1+(EARST-T4)*E2)*FEsSTR 
FACZ=ADEN*E2*FETSTR 
FAC3:=(YSFB+(EARST-7T2)*E1)2*FE*STR 
FACQG:ADEN=E1*FESSTR 

FACS: (RSTEA+ERTB)*E*FERSTR 

FACG:ADEN*E2FE#STR 


woo mw me 


FORMULATE STIFFNESS SUBMATRICES FOR 
STRAIN-HARDENED REGION 


Az-1,0D0 
B:=-ALFP 

IF (OABS(A-B).LT.1.0D-S) GO TO 280 
CA Poa (UBC Ar elem. eso. .65i) iL) 
CALE PRT YAY(B AL Ryn GB) SO n ot) 
CALL PHIPHI( ne) 
CALL PHIY(B 

CALL EPH V8 
po 276 1:1, 5 

Do 2:70) Jel Ss 
FEI(1,J)2FASFI(1, 
FB2(1,J)2FB2FIYY( 
FES(T J) f-Feer ret 
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EBai( Ty) hee Ditik Yall ct) 


70 FES (Tp) eRAcCt= Fit) 0) -FAC2* EF 17 | J) 
FORMULATE STIFFNESS SUBMATRICES FOR YIELDED REGION 

&0 A>-ALFP 

B=-ALFT 

IF (DABS(A-B). .©0-5) GO TO 300 
CALL POEAT CTE SE oes, OLN dele) 
CA EPH Baar eel, 6 Bi Sin Sy ld 
EARS IP AT Yay (Bs Ay, FIYY,CB.5,6,7} 
CALL PM TPH TUE, AF Ur 1), 6 8:59) (61,90) 
EAEU PHIY(B,A,FIY,CE,5,6,9) 
EAR SER HI BA erly Ge ybi, Gi ite) 
DO 290 171,5 

DO 296 J=],5 

PB i(lg os) Se Bil site Am Tel Ly) 
FEZ(T Sve B2( 1) J) eres ely yt 1) J) 
FES, JER BS Tas) Peak MEI t Jy 
PEST Over B ait yd) ierepe Fwy (oT y 10!) 

30 FBS(1,J):FB5(1,J)+FAC3£FI(1,JS)-FACSREFI(I 
FORMULATE STIFFNESS SUBMATRICES FOR ELASTIC REGION 

0° At-ALFT 

BrO.0D00 
IF (DABS(A-B) UT. 1, Ob-5)) Go To 326 
CALE FWEALEI SCL BET, TEA, E) 
CALE PRIGEQk, Fl, 684s ett) 
EAE PHIYY(B,A PEAUNAY SICBinS G6 ut,) 
CALL PHIPHI(B, AP RUB INCE MSM GNS:) 
CA PREC (Bin Ol ie LY ee Bina lb S)) 
CALS SER BIC Es AlreiFel eB, 0S Gratien) 
DO S10 154), 5 
OO 210 Jie, 5 
PR ( TOF Bh | JSR ARE Ti tw) 
FR2{(1, JVeFe2(1, Jef Bs FIVY( 1,3) 
idee, COPE RE W peyote FG 96 50) 
FR4(1,S)=FBO(1,4) +FDO FIY(1,45) 
10 FBS(1,J)=FB5(1,J5)-FACS*FI(1,J)-FACESEFI(I1, 
zo h=0.0D00 
BrALFT 
TE UDA BS A684) be WO Di= 5) GON TOs S40 
CALL FWEALCIECL EFT, TEI, ©) 
CALL PHT CBy AF ty SB So), e009 1) 
CALL, PRIVY UB, AL FIYY, CBS, 6,7) 
CALL PHIPHI(B,A,FIFI,CB,S,6,9) 
yO TOTNES yale HAY ISIS) pte y [Sy Gh) 
SALE ERM NGS) A, EF. , CB, 5,6), 12.) 
DO) 330 11,5 
DO 330 Js1,5 
FEI( DT, JJSFETCL dy eraser, J) 
FeZ(Gl SSP Bie (Tod) er Broly, v(t 5 di) 
FBStGlee ei eebiBia (ile,cu reir site We ly (lees) 
FE4(1,JS)2FBQ(1,5)+FD*FIY(I,J) 

30 FES(T J) shSsSl 1, J) -FACS#E I(T, YU) +eACSHEFI( 1, 
FORMULATE STIFFNESS 

40 AZALFT 

BrALFP 

IF (DABS(A-B).LT.1.0D-5) GO TO 360 
SALE EWC ARC BCL. BE deme, en) 
CALL PHITE, A, Fl CB, SiG td) 
CAML CPA yal By Aue HY aNG Be SiGe) 
CALL PHITPHI (BR, A, FILED, CB, 5S) 6, 3!) 
(ey ATETe TAN Ai Aa Ne islet aay 4 1 pt) 
CALL EPHI(E,A,EFIT,C8,5,6, 172) 
DION SSiOF Als 9) 5 

po 350 J:1,5 

PEI Gh, OO SF Bate di) +A rr (i) 
FE2(1 J) SPE2(a PBS IVY (10) 
aiaseu(h il), Gs) SARs ot pI) esl otras (ly eb) 
FR4(1, J) SFB4a (1 J)+FOSFIV CT J) 

Xe) FES(l, JNErFBS (1, JNSPACS=F I(t J) +PAcCe=er T( tye 
FORMULATE STIFFNESS SUBMATRICES FOR 
STRAIN-HARDENED REGION. 

60 AZALFP 

B=1,.0D0 

Th (DABS (AB). te AOD= 5) GO) TO) 3i8ic 

(Si Meee ian, wie g1Se4)) 

(Yul TOT (Ny ial, Ey, om Ge, ao) 

CA Le Puy (CB Amar clin, VapiciBine Sale.) 

CALL EPHVPHMICBs Ay Folihot, CB) 5716799) 

CALL PRIVYIB,A,FIY,cB, 56,3) 

CARLO ERIE, Aer d ,,CBy Sie yale.) 

DO S70) Nemes 

ep EC) NaI S 

FRAC T DSR E UT, Ser Aer tt ot) 

(alta 9G), Merron sei ey 

FBS ly r= hS silo) rie ak De (or IE) 

FB4(1,J)=FB4(J,JN)+FDFFIY(1,/J) 
70 FES (OER BS ed) teiAG em l(t Oni acs SEI Ta( ely 
80 TF1ISTSAVE 

RETURN 

END 
CECCECCCECEOCECCECOC OEE ECCCCCECCECCCecCeCcCeCecOeCeCeCececececcececec 

SUBROUTINE 9 
COCCCCCECECCEECCCCEECCCCECCCECCOCeCCeCCCecCeeCeCeCeCeeCeCeCecece 
SUBROUTINE FBINBE 
THIS ROUTINE FORMULATES THE STIFFNESS 
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SUBMATRICES FBI, FB2, FES, FE4& ANID FES FOR THE c 
BOTTOM (TENSION) FLANGE WHEN THE SPECIMEN 15 c 
SUBJECTED TO BENDING STRESSES. c 
c 
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SUBROUTINE FBINBE(ST) 

IMPLICIT REAL28&(A-H,0-72) 

(VMAS OCH Ta GSA Wyle iNOS UG! GOAN oie tele (0GA TAY ie Ne SI) 5 Lata rh) SP) 

COMMON /BLKT/E,V,NS,ITYPE LTYPE, FINEL,N, LCLAMP, DKIND 

COMMON /8LK2/CB(7,39),FB1(5,5),F82(5,8),FB3(5,5),FB4(5,5),FBS(5,5) 
COMMON /BLK4/FA,FE,FC,FD,FE 

COMMON /BLKS/ERTB,ERCM,ERTT,ERCE,ERCT,EYW,EYBF,EYTF 

COMMON /BLKE/ERTBAR,YE,Y1,ARER,ECC,ALAR,R 

COMMON /BLK1O/HW,TW,BCL,BF1,TF1,BF2,TF2 

COMMON /BLK11/E1,E2,ESH,YSW,YSFE,YSFT,SRTB,SRCOM,SRTT,SRCB,SRCT 


INITIALISE THE STIFFNESS SUBMATRICES TO ZERO. 


DIO) 10) T= 4S 

00 10 Jtl,5 

FET{T , J)=oO. oDO 
FB2(1,J5)=0.0D00 
FB3(1,J)2=0.0D0 
FB4(1,J)#0.0D0 
FBS(I,J)=0.000 


ADJUST FLANGE THICKNESS TO ACCOUNT FOR 
WEB-TO-FLANGE FILLETS 


TSAVE:TF1 
TEVEBFVETET/ (OFT -2 . ecbDOosTW) 


INI TEALTSE STRAINS AND STRAIN EMITS, Ti, h2, TS, 
Ta, 


=1.000/ST 
RST=REST 
TITEYBE-ERTS 
TZ>EYBF+ERCB 
T3=ESH-ERTB 
TS=ESH+ERCBE 
ADIZERTB+ERCB 


EVALUATE PARAMETERS ALFB AND ALFBP WHICH INDICATE 
EXTENTS OF YIELDING AND STRAIN RARDENING, 
RESiPIE Civic by, 


ey Wises sare ed) ie Agtel Xs) 
ALFB=0,0D00 

RLFBP=0.0D0 

GO TO 70 

LE (ORS. GT. 72)! Go; To 40 
TE \CAID 1 SEO {0 = O:D10%)) GO" 76) 310 
ANI=ERST-T1 

ALFB:=AN1/AD1 
ALFBP=0,000 

co TO 70 

ALFBz1.0D0 

ALFBPt0O.0DO 

(esi Apfel iz/te) 

DE IGRIS eiGunhs()i GOs atOn SiO 
ALFB:=1.0D0 

ALFBPtO0.0D0 

GO TO 70 

TE ORSa mGinger a} peeGiOn smOl ceo: 
IF (AD1.EO.0. ob} GO To bo 
ANITFRST-T3 
ALFBPSAN1/AD1 
ALFB=1.000 


GO> 150) 7:0 
ALFB=1.0D0 
ALFBP=1,0D0 


CALCULATE GEOMETRIC SUBMATRIX COEFFICIENTS, FAC! 
TO FACE. 


ChE EWE ALC GEG) Bika mre, Eo 


FACI=t(RST+ERTB)*FEFFE 

FAC2:AD1I2E*2FE 

FAC3:(YSFB-(TI1-RST)#E1)2FE 
FACSsADIFEIEFE 

FAGCS= (YSFB4(ESH-EYBF)*E1-(T3I-RST)SE2) FE 
FACESADI® E2tFE 


FORMULATE STIFFNESS SUBMATRICES FOR ELASTIC REGION 


A=-1.0D0 
Br-ALFB 
TF (DABS(A-B).L%.1.0D-5) Go To 90 
Mio PUG let ech,G 3, da) 
CAO GaP HIAVAVA Bei Aniaday, VG Ba Sme Gnu, 
(Be APE de nciBaes: 


CALL PHIPH! A 5,6 

CALL PREY (Se A RLY CB, 6,6) 9) 

CALL EPHI(E, A, EFT ,cCe,6,6, 12) 

00 806 121,5 

fey ite) digee 

FRU EJ) SRASF LT 

FE ZL peSheeF LY (Tew) 

FES fol} mer hry ilo) 

FR 4(D, JVERD=FIY( 13) 

FRS( DT JE FACISELT(T, SY-FRESSEF (To) 


FORMULATE STIFFNESS SUBMATRICES FOR YIELDED REGION 


z= -ALFB 
Biz ALE Bie: 
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STEERS 


——ece ae eee 


sseseehsis 


ere 


Th (DABS (A+B) SET. 1h0D=5) GO 70 1 110 
CADW o est Cis ek 8 ten ave tigen) 


CARH Ti Biju ke GBS clei Dnt) 
Ce LARS Pi TYE iS ypresybael YONiry rGtES 04) Sp) @il nes) 
CALLE RHURATI(6 ALF LET PCS, > 6, 9) 
CA Rin IY (Bip aontettivin, ie nooo) = 
CAL EPH CB Aye rile, GBS aGenaie 
DO Neo. Vzt7sS 
BS WOO! Wis t7's 
RE Sr Be ewer Ae STi) 
FE2(1,J)sFB2(1,JS)+FBtFIYY(1,J4) 
FBS (1, Jy fRes( i, JP e=F Te Mit J) 
FRO{T J) sFBa(1T, J)+FDZFIY (1, J) 
100 FeS(l Ose BS VF ACSsr A, J) FR AgseEF 100 jd) 
c 
S 
c FORMULATE STIFFNESS SUBMATRICES FOR 
c STRAIN-HARDENED REGION. 
c 
110 B=-ALFBP 
B=0,0D0 


IF (DABS(A-B).LT.1.00°5) GO TO 130 
CALL FWCALC(S8CL,BF1,TF1,E2) 
CACY CP MEG AL eT POR, S:, 6.46) 


COLL PHIY VCR Ay trv Y, 68 WSi.-6,.7.) 
CALL PHIRMI ES AED E TC8.,:8:, 6i9)) 
CADE EHD (SA Evo nee Si rencs.) 
GALL BRHVM(S kD ERE ORS 8, 12) 
DOM v2 Oo) tees. 
DO 120 Jt1,5 
FB VET RB t Clo) Pree or pl) 
FE2(1, J)2FB2(1,J)+FBSFTYY(1, J) 
ISMN (OPES SEA) Se orate S| 25 ia0 036 5 ch) 
FR4(1,J)tFB4(1,J)+FD=FIY(1,J) 
120 FeS(1,J)=FBS(1,J)-FACSEFI(1,J5)-FACESFEFI(1,4V) 
130 A=0.0D0 
BzAaLFBP 


IF (OABS(A-B).LT.1.0D-5) GO TO 150 
CALL PHI(B,A,FI,CB,5,6,11) 
CAUL (RHI VNB br LVY fCb, 5 enc? 


CALL PHIPHI(8,4,FIFI,CB,S,6 
CALL PHIY(S,A, FIN, 68,5, 6,9) 
CA EPR By AVNEIE TeGiBin 56. \li2) 
oO 140 121,5 
DO 140 Jt1,5 
EST ere Bit) (el nd) Hr Ail (1) 
FB2(1,J)sFB2(1,J)+FBeFIYY(1,J) 
FES ovemesile wd) iF OFF dir hi ted) 
Fea(1,J):FB4(1,S)4FDFFIY(1,4) 
140 FBS(1,J):FBS(1,4)-FACSFFI(1,J)+FACESEFI(1,J) 
5 
(5 FORMULATE STIFFNESS SUBMATRICES FOR YIELDED REGION 
Cc 
150 A=ALFBP 
BrALFB 


YF (DABS (AB) (LT. 1-0D-'5))) GO Te 17/0 
CALE RFWGALC CBE TBR a) Tele 1) 
GALE PAB Avie le cis, Sule atet) 
EAL PLR IGY Vo Bt Amieel YVviGiB Sy 61,07 
CADE He Mau Bry Ag line) GE Gaby, 
GAC SPAT YM By Ayam vine B.,15).69, 3) 
CALE JEPHI (Bia, E62, 6B..5516 te 
DO 160 J1:1,5 

DO 160 Jel,5 


FBI(I,J)2FB1(1,J9)+FA=FI(T, J) 
FE2(1,J)=FE2(1,I3)+FEsFIYY(1, J) 
FES(1l, J) =FES(1, 9) -FEsF RED (1, J) 
FB4(1,J)=FB4(1,J)+FDYFIY(1,J) 
160 FBS(1,J)2FS85(1,J)-FAC3tFI(1,9)+FACSFEFI(1,4) 
c 
(s 
( FORMULATE STIFFNESS SUBMATRICES FOR ELASTIC REGION 
c 
170 AtLLFB 
B=1.0D0 
IF (DABS(4-B).LT.1.0D-§) GO TO 190 
CAWL IEWEAL EG CSIED> iBiRal otra. Ee) 
CALL (PRB A; Rd CB) S65) 
ep TEI TAMA AUER APN Se St Ens 13.5 7) 
CALL PHIPHI(B,4,FIFI,CB,5,6,9) 
CARS PHAN IBS Alpha) CB S765) 82) 
GALL EPHI(G, A, EFT, cCB,S,.6, 12) 
DO; Sows S 
DO 180 J:z1,5 
FBetited) yeah) SiS Min iteg nse juss Svar Te (ete gads) 
FE2(1,JS)sFB2(i, JF BsFIyy(1, J) 
I(t 7 IN EMC, SO) as al ei C ot iss) 
FES(1,J)8FB4(1,0)+FD=FIY(I,J) 
180 FES (i aU SPB Stel ae ACHE Tele dl) wi aC ae Been (el ids) 
190 TFISTSAVE 
RETURN 
END 
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c 
SUBROUTINE 10 


ccecccccccceccccecceccecececececccececccecccececceccecccecece 


THIS ROUTINE FORMULATES STIFFNESS 
SUBMATRICES FB1, FB2, FB3, FB4, AND FBS FOR THE 
BOTTOM (TENSION) FLANGE WHEN THE SPECIMEN IS 


c 
c 
c 
€ 
c 
c 
c 
c SUBROUTINE FBINAX 
(= 
c 
c 
c 
ley SUBJECTED TO AXIAL STRESSES. 
c 
c 


c 
c 
c 
c 
c 
G 
c 
c 
c 
c 
c 
c 
c 
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cecceccecececcccceccceccceeccececececcccecececececececececececcce 
SUBROUTINE FBINAX(ST) 
IMPLICIT REAL*8(A-H,0-72) 
DIME NS ALONOME Tiley ta) rr Qi vavetessay teuie eodiie WUC ceVapnstin) nga ires nent tt ipaed))) yy Se eke furteny na an) 
COMMON /BLK1/E,V,NS,ITYPE,LTYPE,INEL,N,ICLAMP,IKINDO 


O1 


® 
ie a c, at's 
TO bed thee Pine ete 


a ° é 6s Vou th ape 
wotle hee mi TS *) we 4482 
‘* / Pe: +, ro ten ‘ 
res}. > 4 ebie8 ae 
+ Pee | 4 968 oF 9 ‘i 
‘a> &-@ apie Pirtie ? 
a jes @a 
: 6.1% ea 
jaf bewnteats 041 O™ yu Fir 
Pe Pee OE ie hon | .. ae 
ie L/a@! We a%e i4 Site «1695 


1 4, S808 ot 7 84tee Pte 

fc 1 teaelone én. 1e4wsd ere eRe a 
: ? 
Peper yee er ee te ee ee 2 
set pane oor 

atsace 

eee ot a4 14.48 | Yo Bai geee) SB) 

19@,~ 09 (82 of) Sampes 3/497 

te) © 463.0% 4,0)18% 258% 

ee |) ae Tidbl oe spe? 

tee. 8.08 bate, e, © PRD Seek 

© O)e Ge, oe @ Gee we, £702 

Pee.3 © 29 692,4 Ofiart 3445 

tet eer af 

re eo im Obl Oo 

: dapi) ( eeaeret iy, @ewts hae ~- 
oie O@eess 1 Oost u TeeY 
b's F500) Cogee de, 7 ie: cele akan 
A te, 6000094 ie ,1) 0°48 P(& : 

we ae db.) Lt ee el ee ad 
2 
eo: sis 253 bSed C89 ONTIEFO@ Me 1e408*1 14 pis jeneg* 7 4 
argere ov 


#@8 | +4 

oe! 6) ©@ 9 b+me | 74-99 OBaRy, OS 
7@ ¢@ 4 9@, sS@1a.0584 (208 

9 ’ doe, 19s OO" e2tey 

= .6.6. 6), 2? &.Pieree? cleP 


re. ® oe ©, 8) deerme peed 
oe & © €. ¢%.2 @ ¢iu* 4008 

42 @ b. 6s, i hh, @ O0)ard bree 

® 1) 2h4 29 

4.s0— B0¢ @@ 

~ Pei Pepersy shretre. | bpier 
iad i Mepesic tareurs. | )e8° 


ii ePpadei. preetele. i ste 

fe @4 beg ee|\ jinewe ly hone 
of (PPR OESAR IL, 1 Per) Ger he: beet: we) coaes <a? 
Siateee et oo 

omréde 


pes 
S335s. 9 WHISDAD POSTIPS FI S9hF tht hel ichhticecha 
I 
) 
eo) Goi Twersger 


wis ww 


6 sje eaghabgpna seevssse0nen4ensgase=s2 e24er2nJaseReesbd 
@i2144 60) eave : 


so seni wait ee ahs atts at “yee 


ST aus 


3 
s 
v1 
a 
? 
‘ 


aes eo 


o4=a9 = 


naan 


Nnananna 


nnanan 


20 


30 


so 


YOonaann 


nononnann 


COMMONS EEK2/CB 7S) ,E ei (SS), Pees pS) pkeSU5, 5), Sat SS), Bsits5)) 
COMMON /BLK4/FO,FB,FC,FD,FE 

COMMON /BLKS/ERTB,ERCM,ERTT,ERCB,ERCT,EYW,EYBF,EYTF 

COMMON /BLK1O/HW,TW,BCL,BF1,TF1,B8F2,TF2 

COMMON /BLK11/E1,E2,ESH,YSW,YSFB,YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 


INITIALISE THE STIFFNESS SUBMATRICES TO ZERO 


DO Oe Ted, 5 

po io eT Ss 

FBI{1,J)20.0D0 
FE2(1,J3)20.000 
FB3(1,J)*0.0D0 
FB4(1,J3)=0.0D0 
FBS(1I,4)=#0.0D0 


ADJUST FLANGE THICKNESS TO ACCOUNT FOR 
WEB 10 FCANGE SE TObCeE ts 


TSAVE:TF1 
TFT=BFISTFI/(BF1-2.0D02 TW) 


TNITVALYNSE STRAINS AND! STRATIN ELMITS:, Tt, 12, 73; 
Ta. 


STR=1,000/ST 
TIZSEYBF-ERCB 
TZ2=EYBF+ERTB 
TESS OLS Te) 
T&ZESH+ERTE 


EVALUATE PARAMETERS ALFT AND ALFP WHICH IWNOICATE 
EXTENTS OF YIELDING AND STRAIN HARDENIAC, 
RESPECT VEY: 


ADEN=ERCB+ERTB 
We (Sartsae stra tele) Sisk -3ts} 


ALFT=1.0D0 
ALFPt1.000 
GO TO 70 


TE (SiteniGui 2a GiOm 1/0 4:0, 
IF (ADEN.EO.0.0D0) GO TO 30 
ANUM=T2-ST 
ALFT=ANUM/ADEN 
ALFP=1,0D0 

GO To! 7° 

ALFT=0.0D0 

ALFP=1.0D0 

GO TO 70 

TF {St GT. us) Go To so 
ALFT=0.0D0 

ALFP=1.0D0 

GO TO 70 

ie (Sistine wey) tates Seles ie) 
IF (ADEN.EQ,.©0.000) GO TO 60 
ANUM:=T4-ST 
ALFP=QNUM/ADEN 
ALFT=0.0D0 

60 10 70 

ALFP®©O.0D0 

ALFT®0.0D0 


CALCULATE GEOMETRIC SUBMATRIX COEFFICIENTS, FAC1 
TO FACE. 


CAUCE EWGAIC (8Cibe Bien crteliie20) 
FACI=(YSFB+(ESH-EYBF)#E1+(ST-T4)*E2)*FE 
FAC2=ADENFE22FE 

RAGS ES BGS nebo ieee 
FACG:ADEN*®E1#FE 

FACS=(ST-ERTB)*E2FE 

FAC6:ADEN*EFFE 


women 


FORMULATE STIFFNESS SUBMATRICES FOR 
STRAIN-HARDENED REGION. 


=-1.0D0 

Bz-ALFP 

IF (OABS(A-B).LT.1.0D-5) GO TO 80 
CA UP nb rAG eal sciBi Se lGamutie 

Gave PIM By ne lavavarGiBie Son lGi,ura) 
CALL PHIPHTI(B,.A,FIFIT,CB,5,6,9) 
GALE PHITYCB) ALF IY),GE 5), 6,9.) 

aye (alannesy iy dela, S13, 4a, 

po 80 1:1,5 

DO 8O Jz1,5 

FRI(1,J)fFAtFiI(1,J) 
FB2(1,J)2FB*FIYY(1, J) 

PB Site Oye Cee Ue yl ol) 
FBG(1,J)2FOFFIY(1,J) 
FBS(1,J)=FACI#FI(1I,J)-FAC2Z*EFI(1,4) 


FORMULATE STIFFNESS SUBMATRICES FOR YIELDED REGION 


> -ALFP 

= ACF Ti 

IF (OABSUCASB) OLY 21. O05)! G0 TO 1/110 
eye fai ereute (1 3fen Claat aie faa} 
GAC RHA (Bara euls GEG Sa Srna) 
AIL eI HulnvAYe (Baye Aumie aN Vai Sanaa 
CAMS PH TPR INE Are lel ciBiys 
CALL PHDY (By, Ay, Fk lve, > 
oy Test eV A tslaet stele 5 
pO) “coo. T= 15 
pO 100 J21,5 
EB to eel Bat (aloe Ae Inte) 
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423 
424 
425 
426 
brand 
428 
4293 
430 
431 

432 
433 
434 
435 
S36 
437 
438 
4393 
ago 
44a) 

442 
443 
aca 
4as 
age 
a7 
448 
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450 
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453 
454 
ass 
456 
4as7 
as8 
4ss 
460 
461 
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aba 
465 
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FE2(1,J)=FB2(1,0)+FB2FIYY(1,0) 
FES 1 Cier bel) J) Riesr VE 1 (100) 
FR4(1,J)=FB4(1,JS)+FDeFIY(1,4) 
100 FBS(1,J)=FBS(1,J)+FAC3F1(1,)-FACG*EFI(I,4) 
FE 
c 
c 
c FORMULATE STIFFNESS SUBMATRICES FOR ELASTIC REGION. 
c 
110 B2-ALFT 
B=0.0D0 


Mr PABST A-B ype nat eD-S)) GO 7 120 
CALL FWCALC(BCL,BF1,TF1,E) 
CALL PHI(6,4,F1,CB,5,6,11) 
e,a 
{ 


EAS Ee Pine Varo (Birr enlayay GBS Gin) 
CALL PHIPHI(B,A,FIFI,CB,5,6,9) 
CAME PHVB Avner Yiu Gb, Seis) 
SAGE Lae rbr (i yy, lat, EES, Gy wes) 
PO M20 Vs) 5 
Diag zo ist 5 
FRAI(T, JSF Bil, J)FPASe TT 3) 
ES2CT SPSRES TI, JSP ESET YY UT, J) 
EH pe) tae pc Seeaa a e0t, Oh) 
FBA(1,J)=FB4(1I,J)+FDeFIY(1,¥) 
120 FES(I,JS)SFBS(1,JS)+FACS#FI(I,J)-FACESEFI(1,J) 
130 £:0.000 
BrALFT 
IF (DABSTA-B). LT. 100-5} Go To 180 
CALL FWEALC (BEL BRT, TE 1, e) 
CAR eH IMB Ariba G Reso Gr tit) 
CALL PHIVYU8, A..F rKYS C8. 5S, 65.7) 
GALE PHEPRI(8, A, FIFI, Ce,S, 6,9) 
CARR PRNWNUB Ane d\n GBe. See nran) 
CAVE EPH (By Aye bl), GB, Sib ike) 
BPO 140 1275 
BDO 140 Jt1,5 
FEI(T, J)SFBICT, J)tFOeF I(T, 33 
FSZ6 J) Se B21, Jy eRe erty yi ( Ud) 
FBS Reo pesihiBici(tyeon eae GS kk fala (rlegnes 
FB4(1,J)=FB4(1,J)+FD2FIY(1,4) 
140 FBES(I,J)=FBS(1,J)+FACS=ZFI(1,J)+FACEZEFI(1T, J) 
(S 
(< 
iS FORMULATE STIFFNESS SUBMATRICES FOR YIELDED REGION 
c 
150 AZtALFT 
BrALFP 
IF (DABS(A-8).LT.1.00-5) GO TO 170 
CALL FWCALC( BEL BEY, TE t.£ 1) 
CALL HIG. Ay Fa Cy 5s oad) 
CALL SPM VN CS A ely Yi Cea. care to) 
GALE PRIPHTCE. ALE LET, GB. 5), 6,9.) 
CALL PRY CB A, fly Ge, 5) 6,39) 
CALL ERHTUE A EFT, 66, S612) 
ey EO: oy S 
DD 160 vEl, 5 
FEV SRB H(T ) JSR aee Tt (Td) 
PB2(Cl nO eciG Bigs td) + rie sie day ytd) 
(sesh 5 SD) Gla3Ri (0 pe oisistalzoda ie (046 | cll) 
FES(T JER Sa( 1, J) +P De FTV T . J) 
160 FBS(1,J)=FBS(1,J)+FACS#FI(1,J)+FAC4tEFI (1, J) 
ce 
fe 
e FORMULATE STIFFNESS SUBMATRICES FOR 
c STRAIN-HARDENED REGION. 
e 
170 AZALFP 
B=1.0D0 
IF (DABS (A-B).LT.1.6D-5) Go To 190 
CALE BWEALCIOBEL (BEM TF 1), £2) 
CYNE area vy ae els ASS Sey ae} 
CA PIR YAACE 7) Ayumoluvoy- 9 Gi8i, 0506 yi) 
SAtO PHRPRAUB A, Flurl, CB 56, 90) 
CARL PinthyCiBa Ay, pol ve GB Si. 6mo))) 
CALL EPHICE, A EF dCs, 54 6, 12) 
po 180 121,5 
pe 180 JetI,5 
(a te aS (e , AYR e (a; c)) 
As CS ata be, NR ala Rata ALEC 5 en) 
MI pO) GREE , St Siete anl 5 (36) 
FB4(1,J)=FB4(1,J)+FOFFIY(I, J) 
180 FBS(],J)©FBS(1,J)+FACIaFI(I,J)+FACZEEFI (1,4) 
190 TFISTSAVE 
RETURN 
END 
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SUBROUTINE 11 


CCCCOCECELCECECECCEECECESCCCCCECCCCCECECCCECCCeESeeCeCCCCCecCececececee 
SUBROUTINE FBFORM 


THIS ROUTINE FORMULATES THE BENDING AND 
GEOMETRIC STIFFNESS SUBMATRICES FB1, FB2, FB3, 
FBS, AND FBS FOR THE THE BOTTOM FLANGE IN THE 
ELASTIC RANGE. 
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CececcCccecceccececccececceccccecccececcecceecccececcececcceccec 
SUBROUTINE FBFORM 
IMPLICIT RESL*8(A-H,0-72) 
PIMENS TOWN Ria ea vey beatae el he olla Lov toda Bet ak 
COMMON /BLK1/E,V,NS,ITYPE,LTYPE,INEL,N, ICLAMP, IKIND 
COMMONT 7 SUK ZEB 7, Soa RB Ss Sole Biz Sy so) nr Bai Se Se) erie 4 (Sig 5%) ey RB SHG ese) 
COMMON /BLK4S/FA,FB,FC,FD,FE 
COMMON /BLKS/ERTB,ERCM,ERTT,ERCB,ERCT,EYW,EYBF ,EYTF 
COMMON /BLKE/ERTBAR,YB,Y1,AREA,ECC,ALAR,R 
COMMON /BLK10/HW,TW,BCL,BF1,TF1,BF2,TF2 


ADJUST FLANGE THICKNESS TO ACCOUNT FOR 
WEB-TO-FLONGE FILLETS 
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DEL CPE REO. TiS AVE = te | 
TR UDRYPEC EOS T) Tri Br i2Te 1 (Bed 2° oDOs TW) 


CALCULATE GEOMETRIC SUBMATRIX COEFFICIENTS, FACI 
AND FACZ. 


CALL FWCALC(BCL,BF1,TF1,E) 
TP (ITYPESEO)7)) TRIE TSAVE 
FACI+Es(ERTB+ERCB)*FE 
FACZFExERTBEFE 


OEFINE LIMITS OF INTEGRATION, A ANDO B AND 
FORMULATE ELASTIC STIFFNESS SUBMATRICES FOR 
W-SHAPES. 


B=1.0D0 
Ar-1.0D0 
CALL PH1(8, 
CALL PHIYY(8, 
CALL PRIPHI(B 
CALL PHIYIB,4, 
Ee ay iP ete, 
CALL EPHI[(0.00 
DowoMl=1)-5 
DOr We) iz Ts 


VET, CB, 5,'6, 41) 

BAe IiyV nGEm5i bi) 
(Bal EEN) CBS) 6),9)) 
EL VorG Bay Si Gar8)) 

) 

° 


GO TG 36 
peta alaet sss ale, Oy WES 


Fei( i, eo perAcr it) J) 

FB2(1,J3)=Fe=FIYY(T, J) 

Fe3(1,J)+-FCSFIFI(1,4J) 
FBQ(1,J)=FDFFIY(1,J)#FACZ¥FI(1,J)+FACIFEFI(I,4) 
CALL EPHI(B,0,0D0,EF1,CB,5,6,12) 

DO 20 121, 

DO 20 J:1,5 

FBQ(1,J)=FB4(1,J)-FACI=EFI(1,4) 

GO TO (50,70,90,110),LTYPE 


FORMULATE STIFFNESS SUBMATRICES FOR SINGLE PLATES 


pO 60 11,5 


BDO 40 JzI,§ 

BET (lS) tA SE rl), 
I 
( 


FB2(1,J)=FBSFIYY{({1,J) 
FES(?, J=s-Fez=FIFI (1d) 
Fea(1,J)=FOSFIY(1,4) 

GO TO (50,70,80,110),LTYPE 


FORMULATE GEOMETRIC STIFFNESS SUBMATRICES 


AXTAL LOAD 


pO 660 J=4,5 

pO 60 J=1,5 

FESiCt wee Pe Fier sd) 
RETURN 


BENDING MOMENT. 


RFPtEsRsFE 


pO 80 121,5 
DO eo Yet, 5 
FES (I w= RES F Ltd) 


RETURN 


AXIAL LOAD PLUS BENDING MOMENT. 


FEAL=E2FE*ALAR 
RFITEs RIFE 
DO 100 I= 
DO 100 J: 
FB4(1,J) 
FeS(1,J) 
RETURN 


~-FEALSFI( 1, J) 
1d) 


ECCENTRIC AXIAL LOAD. 


R1=:AREA*ECCEHW 

R2=2. 0002 (ERTBAR-AREAPECC#Y1) 
RFF:((R2-R1)/(RZ+R1))FFEFE 

po 120 1:1,5 

DO w20 Jel, 5 

FES (1, J) 2RPF2F ICT wo) 

RETURN 

END 


SUBROUTINE 12 


SUBROUTINE FTINAB 


THIS SUBROUTINE FORMULATES THE STIFFNESS 
SUBMANURVCES | Fin bien sin ie bal ihaiSca ss cLOl Resa 
TOP (COMPRESSION) FLANGE WHEN A W-SHAPE IS 
SUBJECTED TO A CONSTANT AXIAL LOAD AND A 
VARIABLE SUPERIMPOSED BENDING MOMENT 


SUBROUTINE FTINAB(ST,EAPP) 
IMPLICIT REAL*®8(A-H,0-2Z) 


Dit MEIN'S TOWN et icriacra) ibe Vari h Traeced) yy eaids eM tey ned) ye aca avs phreia) Ory Get Packu (oat ip ce 


COMMON /BLK1/E,V,NS,ITYPE,LTYPE,INEL,N,]CLAMP, IKIND 
COMMON /BLK4/FA,FB,FC,FD,FE 
COMMON /BLKS/ERTB,ERCM,ERTT,ERCB,ERCT,EYW,EYBF ,EVYTF 


ee ee ee Be 


->. ® 
po eve a8, 'epe.40108 1499 
7.6 ¢ op eer’ a eese* 3d 
2) live FP erie® aoe 
@ 6. o>. 409- Soelem i209 
oz 3” 64 >.F? ° ¢ 4 
‘open @. ». ae Fe. @ e@@ ' if i co4 
* of °* 
ote we 69 
iw 0} ptae tens. 1s 
“at +} Se0ee » 1 ee® 
‘ 7 : gx 
(4, CO POG04 204-4! ge4 ' reg 840 Gare see o 
a! e8o9,5 14a, 620 3,1 1049. 5 oe : 
“4 08 ac reer | 
‘fe. Ff oP ce“ 
im, F494 wtede 4 ‘ieee e eee) 
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oth “73 a> late oe 
aur peas nearest wyernes ass 


Poin eit 
aie 


miss 


> 
; pals 


eels 


pie \estya)4uscoctre caeandior ? 


=o 86) (e9 G06 


vena kei tebeqoe «os 


(ee pp be 


céae sai y i; s 


7 


nonann 


Co Wet sr MC Yeo J 


annanann 


20 


30 


40 


50 


YNnNnonan 


famememamal 


fo} 


ONAN ® 


° 


COMMON BOR S flair Siiittet( Si; iepatie Mion Sle neo onLe dike Tao Slee site S ys 


COMMON /BLK1O/HW,TW,BCL,BF1,TF1,BF2,TF2 


COMMON /BLK11/E1,E2,ESH,YSW,YSFB,YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 


INITIALISE THE STIFFNESS SUBMATRICES TO ZERO 


DOe se) Tie 45 

DO fo del, 5 

FII(1, J) £0. Op0 
ET2(1,d) FO. 1000 
FT3(1,J)=0.0D0 
FT4(1,J3)20.000 
FTS(1,J0)=0.0D0 


ADJUST FLANGE THICKNESS TO ACCOUNT FOR 
WEB= TO. FCANGE FTE Lets 


TSAVE=TF2 
TF2:BF22TF2/(BF2-2.0D0zTW) 


TNITIACISE, (STRAINS AND STRATN LIMITS, Ti, T2, Ty, 
TS 


STEA=ST+EAPP 
STR=1.O0D0/STEA 
TISEYTF-ERCT 
T2Z2EVYTF+ERTT 
T3=ESH-ERCT 
TOtESH+ERTT 
ADEN ERCT+ERTT 


EVALUATE PARAMETERS ALFT AND ALFP WHICH INDICATE 
EXTENTS OF YIELDING AWD STRAIN HARDENING, 
RESPECT EVEL Y - 


TE (Sipe A Gi tot) iGO: TOM 26 
ALFT®1.000 

ALFP:1.0D0 

GO TO 70 

LF {STEA GT. 72) GO TS 40 
IF (ADEN,EO.0.0D0) GO TO 30 
ANUM:T2-STEA 
ALFTSANUM/ADEN 
ALFP=1.0D0 

GO TO 70 

ALFT:©,0D0 

ALFP21.0D0 

GO TO 70 

IF (STEA LCT .13))) Go To So 
ALFT=¢.0D0 

OLFP=1,000 

GO To 70 

Tie US REAy Gite 4s)) GIO) aTO.nSO 
1F (ADEN.EQ.0.0D0) GO TO 60 
ANUM:T&-STEA 
ALFP=ANUM/ADEN 
ALFT®O.0D0 

GO TO 70 

ALFP=0.0D0 

ALFT®0,.050 


CALCULATE GEOMETRIC SUBMATRIX COEFFICIENTS, FAC) 
AND FACE. 


BAUD SWEAR CUBE Binzer 2 2.) 
FACI=(YSFT+(ESH-EYTF)#E1+(STEA-T4)2E2)*FE2STR 
FOCZ=ADENFE2*FEtSTR 

FAC32 (VYSFT+#USTEA-T 2) 5E1)=FEsSTR 
FAC4=ADENFEI1®FEtSTR 

FACS:(STEA-ERTT)*#E*FE#STR 

FRC6:ADEN=E*FEFSTR 


FORMULATE STIFFNESS SUBMATRICES FOR 
STRGIN-HARDENED REGION. 


Az-1,000 
Br-ALFP 

he DABS VA=B) SU thOiDi5)) 1GiO) TO sO 
CALC IRIE yA bl a Gilg San 6, 


CALE PEMLY VEE A, EI, oh, Sy Sutr) 
CALL PHIPHR(S AWE URL ET 8 16,8.) 
CAG PHIVUB REIN Ch, 5:69) 
CALL EPRITB A, EFI, CTS, 6,12) 
DO) 807 Westy 5 

DO ao Jzi,5 

Fant (20) SF asi rst, Ue) 

Fave zi(ty De RIB F Wey Yel need) 
Pratt , 3) Sor Cs F tir tt td!) 

Pratt pd) SRRSe Ly (1, J) 

FTS (i, J) SFACvsFL(1 , J FAC2Ss EPL 1,2) 


FORMULATE STIFFNESS SUBMATRICES FOR YIELDED REGION 


> -ALFP 
B=-ALFT 
VE UDABSICA= 6 ek te ti OO S)iG.0 eiOls iio 
GALL EWEAR CUBED SiR aha e 1) 

GA Ee Pie UB arma le yc howto 


na 
. 


CAI eP HELYaY OB Alpe au Yip leyoiae Ol) ite) 
CALL PHIPHI(8,A,FIEI,¢On,§S,6,39) 
CAL RAT VaR A, bY aGil Say (6, 90) 
CAME MEPHIn St Arseirelecnmn osm ermlian) 
DO 100 1#1,5 

Bo) 100 Wien 7s 

PTACL, Qs ntl, SS) er Aer LU) 
Bee Ouest tie oli) B= bade vay, (oo yet), 
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10 Az-ALFT 


Bz=0.0D0 


i resrAhe 
)+FDeFIY 
)+FAC34F 


e c.< 


1 
( 
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( 
I 
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J) 
} 
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130 


180 


170 


190 


)-FAC4tEFI(1,4) 


FORMULATE STIFFNESS SUBMATRICES FOR ELASTI 


)-FACEsZEFI(1,J4) 


)+FACE*EFI(1I,J) 


)+FAC4tEFI(1,J4) 


+FACZ®EFI IL, 3) 


1F (DABS(A-B).LT.1.0D-5) GO TO 
(SMe VARS GS UIST liars S82} 1} 
CALIPH (Bh Avie Gile Sa, c6natii) 
CEA PI RACYAV ABA met Nan iGalleS wc Banya) 
CALL PRHIPHINBS A, FIFI,6T,5,6,9) 
GAL PHYA ArokolovaniGel ySi. 61,19) 
CALDERA UE) Aye li. Ci nS bale) 
DO 120 121 ,5 
DO 120 Jt1,5 
Giza SiGe Weyl aot ue UE UR Latte sae le O 
(ups (tole, Cayo ali Ne Salata a ONL yh} 
FTI VSP VSly Si Pee PVE TT Do) 
Er ait) ska AG ly dS) RD ee Ya Ty dn) 
120 FTS(IT,J)fFTS(1,JS)+FACS=FI(1,4 
130 h:0.0D0 
B=ALFT 
IF (DABS(A-B).LT.1.0D-5) GO TO 
CALL FWEALECUSEL, BR2, Te2), 2) 
CADIS VBR ey Aly rile Gass a6i tn) 
GARE PIM Yavaie pai ealaYavey: Gila, oon Ginna) 
CALL PHPEMN( 8 A, PIETY, CT, 5, 6,9) 
GAMES BA Tye tBe Ay ary Gilg S026 9) 
CALL EPRICS A), Eri Gly Ss Cl, te) 
Do W140: V1), 5 
BO 140 J:1,5 
Estilo pesein Witenes) oe Rie eau Lenn) 
FIZCT, JVSkT2(1, S)+FRSFIVYY(1T, J) 
FIS(L ose Tatt, J) Feet se l( ts) 
BaSuliteron)h= tana (ede oulaei bau malo Va (ellen) 
140 FTS(1,J)2FTS(1,J)+FACS#FI(1,J 
c 
c 
c FORMULATE S 
c 
150 AzALFT 
BrALFP 
IF (OA8S(A-B).LT.1.0D-5) GO TO 
CALLE FWOALEN BEL SF2,>TF2 £4) 
CALL PHT E, AE ts 6h Sa by 10) 
CAINE PB Rioyya UB AUsEIL Yvan iGililn Sil Bayar) 
CALS IPHMEMIL Bi Ay Erol City Sup bieS)) 
GARE BI InYe(CB yan ee onion 9 5756.,)9)) 
CARD VES Rae Ay Er tin Gils, ibe Gales) 
DG) Tso t= 415 
po 160 Jt1,5 
FTU I SSE T IU, Ce PASe LT, J 
Pinweilel gd sie elynd))) ets = etavet (tins) 
FIS( tS) SF TST, dv FCrFLF1 (1,3) 
Frotr SSrRa( LY, J eOsr ry (1 7 J) 
160 FTS(1, JJSFTS (1, JI+FACserr(1, J 
c 
c : 
Cc FORMULATE STIFFNESS SUBMATRICES FOR 
c STRAIN-HARDENED REGION. 
(= 
170 BZALFP 
B=1.0D0 
IF (DABS(A-B).LT.1.0D-5) GO TO 
CALE FWEALCI( SCL, Sh2 ne 2), 62) 
CALEB HT By Ay Ele Gtis5.60 itn) 
GAIIRHnvcviCE tanteel Niven ous: Olnnth) 
GANG MPH TPR IB, ay hol hol, Gaia Sabie) 
SALES PAI (UB Ay Flv ne Tess 461, a0) 
LSE IST 3), in Set alsin (Spy vey) 
DO 180 121,5 
DO! WO Wea, 5 
Emit, Jeb Gt (sup te Ae el Ge) 
Faneielwiusiminez (te 0) + eB mination Vil lonea) 
Eoisi(olpe \ussmotest( legce usr O elke l ie olen) 
TSK eee Ride sepe Nite Fat YC Dod) 
180 ETS(L?, JckiIS(% pd + PAC ir L To 
130 TF2ZETSAVE 
RETURN 
END 


REGION 


TIFFNRESS SUBMATRICES FOR YIELDED REGION. 
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THIS ROUTINE FORMULATES THE STIFFNESS 
SUBMATRICES Fit, Fiz, 
THE TOP FLANGE WHEN THE SPECIMEN 
TO BENDING STRESSES: 


SUBROUTINE 


13 


SUBROUTINE FTINBE 


SUBROUTINE FTINBE(ST) 
IMPLICIT REAL#8(A-H,0-27) 
DAIMEIN'S CO Nanri l(t ively ol Vova (Tiger iy iyuls eile (ucagieZeN ipl Pkt erat) iar etee la acmaerzar 
/BLKI1/E,Y,NS,ITYPE,LTYPE, INEL,N,I CLAMP, IKIND 
/BLK4/FA, FB, FC, FO, FE 
/BLK5/ERTB,ERCM,ERTT,ERCB,ERCT,EYW,EYBF ,EYTF 


COMMO 
COMMO 
COMMO 
COMMO 
CcCOMMO 
COMMO 


anann 


00 10 


N 
N 
N 
N 
N 
N 


LBUKSHEM i oh) SunlSa lS) Minbe iS yeaa gh mate Sig Sor 


Ets 


/BLK10/HW,TW,BCL,BFi, 
/BLK11/E1,E2,ESH,YSW,YSFB,YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 


121,85 


sfanlie 


Laat} 


SE ZF 


CCCECCCCECeCCCeCecCeCCCCecCeEeccCcCecececcccccecccecceecceceeccceccee 


AND FTS5 
Is SUBJECTED 


eccecceccececcececcececcecccececcecececccceccececccceccecce 


Li aes 


INITIALISE THE STIFFNESS SUBMATRICES TC ZERO 


c 
c 
c 
c 
Is 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


PTiscS 5) ks FS Sa) 


a 


06 


Le 
Lig 
ae 


it 


ois 
i% itis @eit peateei., per? 
Pe ita is See ee ee) bl Re 


2 
a 
oebeed S900801 OF GFatet erty BaenTeety S744 @rteF 2 
*e,a98 OFF 
*9ia+8 
of? OF GE Pe-ge 4-7) per opBbeet a) 
tee, S69 (Ge, 4:0)6r4 ee p99 
iap.4 ) 8 1,0 evloe safes 
8 he tek s pietede” eete 
(eo 6 8 Fa.90). 0, Ge eeer ee eee? 
7 STs fee, Grete CE8.8 : 
Le ee ee eka 
: i 102’ oe Pr 
i ur o2' ba 
e j= bg ieiamla é iy, pire _ 
a 3 Ae oh rel eathy Lae _ 
* se ,0 Ses he 1 ere }6 8 had : 
ie! po weasels pw aire, bpaee 
1G f bOOO rp ete pw pb tl wedoa tele thar eat. ‘yee = n 
3 
ade Geulaferreea Fotooe*s ors Geeeet Ss 
Peites teegansd a> cate 7 
*s1e08 ah i 
eo) 124 
tem Or 4s fered + %) of O/RPeeh SF : 
pity ove O88, -eOreeate” F108 
4 gb ea re 6, 8) ee alee ; 
+f.” t> el? @_enhe ces geo - 
ie © + (a ters © & sarveee Giese 
14.4 » -& *) 4.4, 6) 084s ed 
ve: 4 6lem Fes. @ Gets go ee ~ 
@ sy © 
6,296 a 2 Chas : 
a geae+tE ole Peetu are 5 : errr 
LT ie Peteqgterh ¢ |) Stele ek dl vere 
ba RL apweaeh, «11S eee hf RTS J 
ui TUT NLL ae ierenireites 
im thetgepe@en(s, | ahr tate’) fae reee 1 O89) OM 
saeeeeeeT oe 
aay 1 ge 


L3ato >) aS OP SUBIIANS) 04S OFS SSH Ds ees 13939 ARETE aRe 


wud 


c op Rady 


+) ee, oo 00 @ 


pe 
dot/Sr SSO FARO CSIs F233 HO sat 61 Fate ev 922416 1373 pe S203G00799: 
qen.¥* Gel teteee 


SORE 
sada peels hoch ma a a ; 
naa 


Sal, a 


(i e(FRane vises| es 


5 


Crevisnus 


apes apo 


ro ay - 


anann 


ananoan 


NOONAN 


nannnn 


wo 


wownwnvnowo wow wo 


OS NSS ee 


BO Woo Wats 

FTrI({I,J)&0.0D0 
FT2(1,J)20,0D0 
Email 15 J) 20 ODe 
FT4(1,J)#0.000 
FTS5S(1,J3)=O0.0D0 


ADJUST FLANGE THICKNESS TO ACCOUNT FOR 
WEB = TOF LANGE i Wieas 


TSAVE:TF2 
RP2: Br 22Tr2/ ((BE2-2ODoO* TW.) 


PNT TT PASE SSE RANINS SAIN Dass RAIN Ie EMiliSi cele  Mestijs licy 
TEE 


STR=1,.0D0/ST 
UP USN ota 
2S EY ne PERT mh 
T3=ESH-ERCT 
T4SESH+ERTT 


EVALUATE PARAMETERS ALFT AND ALFP WHICH INDICATE 
EXTENTS OF YIELDING AND STRAIW HARDENING, 
RES EC Tl Wei ves 


ADEN=ERCT+ERTT 

ie (eS ste ead IP Estes asfeli Xe) 
ALET = 1. ODO 

ALFP=1.0D0 

Gio 8) 7:0 

BES CST AGT a7 20) GOP Oso 
IF (ADEN .EOQ.0.0D0) GO TO 30 
AWNUM:T2-ST 
ALFT=ANUM/ADEN 
ALFP=1,0D0 

Go T0 70 

ALFT=0.0D0 

ALFP:=1.9D0 

GO TO 70 

We Ws ieeisar oirey) fetch Sate Ls 
ALFT=0.000 

ALFP=1.0D0 

GO TO 70 

vai Sas san ech! (eilet Sats) SS) 
IF (ADEN.EQ.©,0D0) GO TO 606 
ANUM:T&4-ST 
ALFPZ=ANUM/ADEN 
ALFT=0.0D0 

Go: TO: 7/0 

ALFP=0.0D0 

ALFT=0.0DO6 


CALCULATE GEOMETRIC SUBMATRIX COEFFICIENTS, FAC] 
AND FACE. 


GALL FWEAUE (REL, BR 2) nF 27 62.) 


FATIZ(YSFT+(ESH-EYTF)FE1+(ST*T4)=E2)*FE 
FACZ®ADENFE23FE 
a VESe( i Sizarc US ip cara) is) etal 


FACS=ADENZEIEFE 
FACS re (ST-ERTT) ® Es FE 
FACS=ADEN=E2FE 


FORMULATE STIFFNESS SUBMATRICES FOR 
STRAIN-HARDENED REGION. 


h=-1.0Dd0 
B=-ALFP 

1F (DABSICA=B)) ET. 100-5) Go To 306 
(Spee TAO fl ae ve TEE yy Ey en We 


n— 
~ 


GAUL IPR WV Yite Ay ral YeYo nc ti aS6 7) 
CALL PMIPHI(G, AF hE? ey, Se, 9) 
YVER TEV AACE Aaa ent ng Oot] 
eNO BETSY, Aiea Gr -S, 6,029) 
Hoy Ley AG iS 

pO) BO Jb, 5 
FTI(1,J)=FAtFI(1I,J4) 

Fame2a( lipid usr Bie tevarel Tpdy) 
Faisi(oliyed) satan eall Te eteare)) 
FRS(1, Jer Derr YC T 7) 

aS) , CPN rR i, Sota verre (O38 7c) 


FORMULATE STIFFNESS SUBMATRICES FOR YIELDED REGION 


Bt-ALFP 

B:-ALFT 

IF (DABS TASB) (LT. 1. 0D-5) GO To N10 
CALL FWOALEC (BEL ,BF2, TF2,E1)) 

CAME PHiIGE Ay bly Gig 5), 67001) 

(PME, Get N OES oN iz Ae ISP pen wh) 

CACM He (Ba yAm bl) tenuCira ener a0) 
PN. TOGO AN 1 NE. SOF ot BD) 

SyNUIL Jara, A, ie tet SG, ve) 

po 100 1:1,5 

Dior WeOmd= 1515 

Fort (ele) eon aetign) As ele el yD) 

yell wt , Pelee tl casa AA yd) 
Ero deh ns (ly ame eRe lied) 
FT4(1 J) SFT4a(T J)+RDsFIV( 1, J) 
FIS(T, JJerTs(), J)+Facaeri( tl, J-FACe=EFI (i, J) 


FORMULATE STIFFNESS SUBMATRICES FOR ELASTIC REGION. 


ES OPM ET aE 
Bz=O.0D0 


soar aera eg 
ator Pre 


’ ey “sf od 
ow eT eae ee 
‘ 
see 64 
oars . 
eo 3? 9@ 15°. eh. + 
wag rout 
Se @e 
Le ee ae " bd 
oe oT bo vrewo .« ©) whee) VE : 
tin © =a ’ 
ese! Winer? ote 
eee er hO ee s ‘ 
is | es a7 & ah 
one eorthe aa soe 
oft be? Pie 7 
4 oae 
3 aaes -) 
eee PPG a OES Te @rW ceepe Hi OP ae Pe Pte yv alee 3 an@ : 
ere i eeer 
a cee 
i Se ee OS ee al eel er eT par nD 
v7 orgees>? the v* e006 99 ang 69950> 284 eaar 
ave bee ogee dar ecogs 7 
€4< | dee; 99 64) e098 14 6a8 ria 
@ oer po OeCas spas “eer 7 
Obe0 a) eS ee) teh eheer are? 
en eee Red iver, 
3 ae 
a ; 4 ; 
oO? @El Peter qa8e,he @¢e 5 J 
; im i O=4, ©= 0@ 6 ee M 5 hh 7 
5 ares 
ye flies ai 
oa @ ig s@ay 
_ “— & 7 rine te (& ebepedy OF a 
46 +. 0@ (>) bepe* 463 ; iy 
poy aired +a © 6098646 saad een? 
$06: @ 74 A%0% Bi (yret® ateg waar 
ee é@) en ome ot 
4:4 .¢ ee 1 Ve, eve 
* se q 4 Bay - 
e,% A oe 
issgn i} rT 
oy } baeq* ery 
® 1) Og Oe gee » % Pee 4 
p -oseess) >o@@ 
Pe oie rdaweee’ Li, | eee pecede 41089 or 


(006 ee COO/O 004 G07) Re pmwee Hiaerer oe Oe supra 


or? “Yt 


oe: 


my 
a : 7 > 


6 : 
ig » 
e 


IF (DABS(A-B) 
CALL FWCALCI(B 
CALL PHI(B 
CALLS Pa yay 


sti eh ateldoy)), tefol Gyles) hehe) 


ME niowGsal ta) 


(GE , 

CALL PHIPHI(8,4,FIF1I,CT,5,6 

CAI RHA VAEcAnie IeyeGunniSiniei 85) 

CAUCE PHB Ay EE ty Cicse Ga, iz) 

DO 120) = 4S 

DO 120 Wer, 5 

af Slane (he pe eals (NTA (i oe | AL) 

Pao se mate ie Ber) YA (ot ly) 

fered co eee 6, coat ats (03 7 et) 

FTIS(T, Serena t sr, JPSEDSF IV (1, 3) 
120 (aio, Syste st , leriayeGestant i, Oster ae tsl a (hae 0) 
130 Az0.0D0 

BEALFT 


IF (DABS(A-8).LT.1.00-5) GO TO 150 
CALE -FWEALC TBC BE 2) Te 2) E) 
MG GENO, Awiell Sy pS aD) 


GAIL (PRE VAVAV Ey; AdUr aeN YG yu, Sqr Osiey), 
CANE PRP HUB RTAl ne WrliGt aise Ss) 
CAL OPiS Ay eV 5 Ci, 5) 509)) 
CALE LEPHT (1B, Ay, fel , cn, 56, 12) 
DOM N40) Te) S 
Do 140 Jz1,5 
laure (Hat oh eta er oR arNia ot (050; ch) 
ET20h yo er Re iver Ber PN Ca 7) 
FrsQved)2F tal oor eer Teil T) 
FTG(1,J)=FTG(1,J/)+FOFFIY(1, J) 
140 FTS( LT, JUSFTIS(1, J) +PACS=Fi(), J)SFACE= EFI (1, J) 
S 
& 
S FORMULATE STIFFNESS SUBMATRICES FOR YIELDED REGION 
c 
150 ArALFT 
BsALFP 
IF (DABS(A=B) UT. 1. O0-S) Go TO 170 
CADE SEWEALECREU, Be2, Tr2), ct) 
See TIE IN ee ei, S/S ay 
[efNok TBINANEES Lio Ae, Sip Sy Bin) 
ECAP Hip Hoc S Are itel niGaley Sa, .G029%)! 
(SAW TSA IN EU? IS pp yO)! 
CACM MEPHIUBS AER.) Gn Si © he.) 
DO 160° T= 4,5 
DO 160 Jetl,5 
apt oe 5 erage (UM, Ua calavNes ta ih 76 et) 
Fama (lind) esRar2 (Ol ae) ) SRB E Ivey OT de) 
Fase td) =seutesuule je ih=iruGren= lcFala(itanewl) 
aa ey Chae Ch pica ode TN AGE I) 
160 FIS(T, J)tFTS(1,J)+FACZIsFI(1, J) +FACSeEFI (1, J) 
c 
c 
Cc FORMULATE STIFFNESS SUBMATRICES FOR 
[es STRAIN-HARDENED REGION. 
[= 
170 A=ZALFP 
B=1.0D0 
IF ({DABSIA-B).LT.1.0D-S5)} Go Te 1380 
CALL JEWCALCUBEL, BR2, The, £2) 
CALE (HTS a Fr, ot. Sy 6 lt) 
CAC PHY VaR an Relay Non Gen Steud) 
CALL PHPPHE(ERAL ETE I, og 6. 6, 8) 
GAL PHY UB Ar edey y Gin 5s 61,190) 
CALL EPHI(B,A,EFI,€T,5,6,12) 
DO 180 121,5 
= 5 
G 11, J) +RAsh (2,2) 
TE T2 1 oi) tres Lys 5d) 
SPS Vee) Cee Ft (io) 
EP m4 (teed) HD =e Ty (ny, a) 
180 = S(T, J) SPACVs FI (1, J) RACZFER 11, J) 
130 E 
RETURN 
END 
CECCCEEECCOCECCECCE CCE EC CECE CECER ECE CEC CECCCEC CC eC CCE Cc eCcCccc 
c Cc 
c c 
c SUBROUTINE 14 c 
c c 
(e) [3 
CEESCECCCCCEECCECCCCECCECCOCE CE CCE COCCEE CCE CC CCCOC CCC CccCccec 
c c 
Cc SUBROUTINE FTINAX c 
c [s 
[e THIS ROUTINE FORMULATES THE STIFFNESS ie 
(a SUBMATRICES Fri, Fr2, FITS, FI, AND Fra FoR c 
c THE TOP FLANGE WHEN THE SPECIMEN IS SUBJECTED (= 
e TO AXTAL STRESSES: c 
[e c 
CC CCCCCCECSCCECE COREE CCEEC CIS CE CEE eC CCCCCCE CEC CCE CC OCG CC CCU e ee 


SUBROUTINE FTINAX(ST) 

IMPLICIT REAL*®8(A-H,0-7) 

PMI ome Tee Gly le AAT Te) mes tel (Cy ID) le ENOL Te 5 P)) pasa Uae te) 

COMMON /BEKIVE,V)NS, 1TYPE, UTYPE, TNEC N, DOUAMP | TK END 

COMMON /BLEKS/FA,FS, FOC, FD, FE 

COMMON /BLKS/ERTB,ERCM, ERTT,ERCB,ERCT,EYW,EYBF ,EYTF 

COMMONEY Bia Hem CTs roi S Shera 2S. Solnhs (Se. Sia eel Sino) ees le Si gpoe) 
COMMON /BLK10/HW,TW,BCL,BF1,TF1,BF2,TF2 

COMMON /BLK11/E1,E2,ESK,YSW, YSFB,YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 


ie 
(e 
c INITIALISE THE STIFFNESS SUBMATRICES TO ZERO. 
c 
po 10 121,5 
DO 10 J=1,5 
Ft delete =O ODO 
FTZ2(1,5)=#0.0D0 
Brot ld) On ODO 
FT4(1,u)#0,0D0 
10 FTS(1,J)=#0.0D0 
c 
lS 
[s ADJUST FLANGE THICKNESS TO ACCOUNT FOR 


ints 


Lehi Poaeatae ie iiss Pibite . 7 


9006s SRE (HTY Fed HEP eTAMOLE 2reR Hs) Te er 


ati ge 9° 3° 3m NGL Hs ta Le] 
es, £99 8 4 * 

4H « a * iS + Sine 

7 ae) lyvess .oeg 

ae i oh, 594.4, alueties ean 

Ley " ‘eee ra eee 

bEy 2 @-Ta, 242, a. 8b 08 ares 

i.e) on *e 

#, 0% + oe 

4 pel Orareis pas ts oes 

i4 ipeyeana=tes Cibv tees, 10 6FF 

ih a Pde Peidend®, Gieteere 1) Gee 

re, tbteektats, eters ijage 

+ yo Shes Poteis 1.0% Coa dc 4hHtss dy, +O 


= 


Me (9 R6ehee OpTHAEIre® ots Juseu~ 
weToend phwna dhe. a) neta 


sv iefa 

aia ¢46@ 

oa? a? ée-@9 ' Td, (@-~doteete BS) 
VOR, O9* .F°R. G80) 9 2 Ge* 0045 


er? Be. »t,e iin@ O783 

0@ 6 GC OR FR) 4% & 209090" ec07 
oe s 25, >% @,¢)4@G1@66 6465 
14 8 2,4 s® & ©1928 £793 
fer ,e 6, bd, )8e, ©, Orewes 1003 
#,°of @eoF oF 

* o+— o0° 99 

ye Virco tes, feertrly. [epee 
bh Pe VRS e re. ete le eee 


id, POSES ELM ie o> ort\, ohare 

fe to0eRmeSe hy 1)? Oaee_ FO88t 

&. 01¢ @4250%e!) 9 6Oe+-se4014. |) 82 ¢004,, P4018 
soweteet? 


oer as 


oo 
eae 


ove 
LoGUS0 9320293 22NF= GK Fas P09 6 Soo) 02-999 1992 93 23792953 9T92 F97FII 


e 

i $s Ger @eRie 

3 
5:92 US >0S so 5.aSb 0979979 Shot Shs s 9 > Hoots 1524) 184 PID ESR TVSD HBG 
9 

2 oan1)* ge! tereane 

4 it eae Tar sie aeitiee ete 

? ors 4 #@—/ Of iee,6 

; tee phy ag Se them woes cl 4c pee 

: waeeoe*s saree ©F 

a 

5996230555 uesetEey Leg ars? Tr *Ese9FIF > 6 4s3s57 48th eITs2 


(Pea heei* set teceue® 
ai: @ Wye eeetee "iat ie 


rt “AGned ane ba ary ‘gt Se af Kent be . pa 


44, 4% ©4 ot 
by, epeee ia on ore ee 
¢ 
S502 a20% th08 park 


tt ash erat 


gt eeone 


* 
Ls Pas Fee) pace 
ocemeds 


i 


3 
: 
3 
: 
. 
A 
a 
38 


YVNNNNNNNNNNNNNNANNNNNNNNNNNNNNNNNNNNNN NNW DD 


Zaz 


ae 


Nanaqnna 


aagananna 


20 


30 


Ce) 


so 


NQQNQNANM 


anann 


BO 


an 


WEB-TO-FUANGE FILLETS 


TSAVE=TF2 


TF2=BF2=TF2/(BF2-2.0D00tTW) 


TNITIALZSE STRAINS AND STRAIN LIMITS, T1, 


T4. 


STR=) ORO //St 
TAS eY Te ER eT 
Ue cata ante halal f ins 


WEBER SO Pen a He 
T4=ESH+ERT 


EVALUATE PARAMETERS ALFT AND ALFP WHICH 


T 
t 


EXTENTS CF YIELDING AND STRAIN HARDENING, 
RESPECTIVELY. 


ADENZERCT+ERTT 
Tite Setlien Gene vurpetin) 


BLFT=1.000 
ALFP:1.000 
lsiof apts” Ae) 


TGR CSiynaGaneeatazn) 


VE SWADIENT. EO 0) 10 DiO)) 


BNUM:ET2-ST 


ALFT=ANUM/ADEN 


ALFP=1.0D0 
GO TO 70 
ALFT=20.9D0 
ALFPt1.000 
SO TO 706 


ae (Sr le Shee) 


ALFT?FO.0D0 
ALFP=1.0D0 
(eek Teel Zf{s) 


Tam eSalleen Garena) 


IF (ADEN. EQ.0.0D0) 


QANUM=T4-ST 


ALFP=ANUM/ADEN 


ALFT=0.0D0 
GO TO 70 

ALFP=0.000 
ALFT=0,.0D0 


CALCULATE GEOMETRIC SUBMATRIX COEFFICIENTS, 


AND FACE. 


CALL 
FAC) 
FAC2 


G 


c 


G 


S 


OM Oee.0: 


(oh yr tek Gee) 
GO TO 


o TO SO 


o T9 60 
Go TO 


PSE VS NS a iece Shay ones) cS aS 
FACG=ADENFE1*FE 
FACS=(ST-ERTT)*E2FE 
FAC6=ADENFESFE 


30 


ize) 


FWEALCUBCE, BE2, TR2,e2) 
(VSETHVESH EY TE VE tS To 14)) FE?) re 
ADEN*E2*FE 


FORMULATE STIFFNESS SUBMATRICES FOR 
STRAIN-HARDENED REGION. 


Bz-1.000 


Bz-ALFP 

UE CABS (A807 Eales ot i ODi= Sy) 
CAUCE PinieBy, Akal nei me slint 
(Vee TlmiNSallly a Sn leseMd pisar ps) 
CARE P HT PH li(CBy A bole Gna 
fore ANAS Nal ean, Sal, cal n 
feos Wer Ath (LS Ny S120 Sry Si, 
DO) so P=, 5 

DO 80 J21,5 
Feil gucti) ns irae le cto (Sten!) 

Fete ee I) = Fab =F ey Ye(el on) 

Fa Saoirse iG = allen (e lene) 
FR4a( 1, J)SFOsF IV (1, J 

PRS Oy =F Red se 1 ( 


FORMULATE STIF 


FORMULATE STIFFNESS SUBMATRICES FOR 


AS - ACEP 
Br-ALFT 
IF {(DABS(A-B 
CALL FWCEALC( 
CALL PHI(B,& 
GAS PiHaey vArB: 
CALL PHIPHI( 
CALL PRI (87, 
CALL EPH (8, 
DO 160 =i, 5 
DO 100 J:1,5 
Fated lees) )) = beat 
[aueaiie 4 Oy) ola ace? 
fenereti¢ ih, Sn) Staak! 
fagec (Cl, 2) Biaaec 
igre 36 5 UMVetanes 
=-ALFT 
B=0.0D0 


IF (DABS(A 
CALL FWCAL 
CARE PHI 
CALL PHIYY 
CALL PHIPH 
Bia Cee eitiyal 
CAE EPR 
fal(oy, eaten ated 
BDO 120 Jel 


(e. 


( 
I 
B 
B 


Te 10D = S53) 
(PA wlars lS 
By 1% 


J)+FAxFI(I 
J)+FBIFIYY 
J)-FCHFIFI 
J) +FDEFIY ( 


,J)+FOC32F1 


ry 
F 
€ 


Tene ODES) 

pedere, Wier) (2 
Sit pS pen Mi 
Faiy ven Gucet Say 
PSU Filia 
Lon Ci Sines 
FalGsan siren 


co 
) 


pe) Exe) 


oo 
i, J)-PACZ* EFI (1,0) 


FNESS SUBMATRICES FOR YIELDED REGION 


(eile), ale qbaite) 


i) 
) 


| 
( 
1 
( 


I 


J 


)-FAC4#EFI(I,J) 


GO TO 130 


) 
) 


INDICATE 


ELASTIC REGION. 


209 


s 2(pitenis Gi eree iat 
(ew* ePeeiai8het 0) «Memeo Stet saspoues 


by a9) = M 
F994 ase! #! Ais sere +) Sertraline cs 


> 66) 1 920 Pe- rarer Che iF 
yor ee1 pp bunggor 
hh Peel Lee aed 
@, ¢seg—8 HEE 


ats 4) Pet eeget PHpIE PS? O | FAcoOORS 
TEE rey Mer prety 


“aga foe 
@< parent 
es 5 w |\&¢ "4 fesdigmea) oF 
6%¢)9 @..43) 1% 0 O1)08 4 Hy 
(© @@ 3 feqt @ § ‘eje 7 
ip » 6. 7% .\ e049. @,&') ete” acee 
ob ©. 2,48, Pt* = O17 ¢e@ Ces 
& .e.F ¢? se 6 Ghywee af 
eS ret Ge 
4,4+@ 0¢ 84 


ba 6 Os eOCXrs covets 
af bi pret ™ eee 
(Br erg + qs ete 


ps4 togee ie piers 
by , 1) OROeN se hein. 8) Rep Aeon, Ler" 


@ntnGy Demi 649 aes) s erases eee eTL ptaseen 


ee | 
Pegncetd 
e+? @© sa i0-f? #7 ©@°@.eaasl @% 
bm. 672 296 160')26O89  pieD 
ws '.8.95, 89,0, 810° coee 
tT =, & ¢@..se7® e:e9en® 5-69 
4 of7s .* 48.4 © (08888 YPEd 
La ‘ @ *? 7°, 0,0 ree ae 
rei & 1s 14. @,8°1044 rab +4 
diiet oo @ 
a te oo 46 
(Pee ®ria i Pehe 2esT 
Veepebey | igre: @, cet 
Gasenhy © '@t4y he 
Sagiae)s.) 146694! y 
ippiaets tleve= anew 


ake 
deta, 
° 


&, Fo e@Poasa yet 


PUP ee eee ee a 
lane 


ace oF iv s Ae | * » 


Suuwow 3 


awe ia 


wet 


awe 


- 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNN NNN 
ae) 
iJ 


nN 
wo 
oo 


2214 
2215 


arate 
2218 
Fare) 
2220 
Sail 
ap leays 
2223 
2224 
2225 
Ba2ie: 
CAPES a 
2228 
2223 
2230 
resi 
220.2 
2233 
2234 
2235 
2236 
Zoom, 
2238 
2239 
2240 
2241 
CAC 
2243 
2244 
2245 
2246 
yaya at 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257, 
2258 
2259 


Lae, SE, yc ercel ean (Ea pa) 

Fee a (olor el) Biren ee (To neret yet eB eimai Ye vn (edirrdln) 

Fed (ie o weirs ene yk Geo runin gees) 

Ep euet een) seat meaty rel i iD sr eye, ol) 
120 FRPS(ly Cer r Si ly dtr Ae Sr yds) mr AC Se ili, on) 
130 A=0.0D0 

BEALFT 


oat si! HOCH Tels ane WS) 
Lee we IS} 


-B 

CALL FWCALC(BC 
RETR ET Sie Man) 
Bare 

i 


CALS RH IGs 


CALL PHIYY PRIYA Gis) eae) 


We, 

CAL OPHIR OCB Alem ie, Gun 51,6 8.) 

SALI P RNB Arti WiGdeeb 6 r09)) 

CAEL REPRE AMER Gri Sucee) qe) 

Dow Mg Om tueringes: 

DO 1460 Jet1,5 

FRCL ois (ed) eA TON wi) 

ET2 yO) Ere Te Oe RB sie LY Vl Td!) 

geht 30) Oh) Die ek oe) OP SiatSea Sst (36 5 ohh) 

FT4(1,J)SFT4(1,J)+FDerF V(t, 4) 
140 le PSAt ue Ail) Sia el G, Sica Stal ae 10bt yes ay VeIse at alah ltt Cn clp)} 
fe 
ie 
(S FORMULATE STIFFNESS SUBMATRICES FOR YIELDED REGION 
c 
150 AZALFT 

BrALFP 

IF (DABS{A-B).LT.1.0D-5) GO TO 170 

CALE FWEALEUBCE ABE 2) LE 2 e)) 

GALL RHI iSyy Aural), Guin Sn Gti th) 

SPMUIS PR BIVAT UE (eb, LAG, us, Bin Sp 29) 

GARE PEPIN (au Ay mln lei S690) 

EA PIE nya Ba AnEalverGiii Serban oh) 

MSG Isabel 8 ir tar 4 yy Abe) 

00 160 1:1,5 

00 160 J:1,5 

Ewer, SET Wty i RAF TCT we) 

2 eee Tend) eB srl Vayi (ole cl) 

BIS SETS Se sree wt) 

FemeQn( seri) State a Ts) tie Dis Fale Vat Tos): 
160 FTS(1,J)tFTS(1,J5S)+FACS*FI(1,J0)+FAC4*EFI (I,J) 
c 
[2 
c FORMULATE STIFFNESS SUBMATRICES FOR 
S STRAIN-HARDENED REGION, 
(e 
170 A=ALFP 

B=1,0D00 

TE (DARS (a-8) Lh. 1.OD-5)) ici) To) 1916 

CALL FWCALC(BCL,BF2,TF2,E2) 

SALE H CB An mile ay SiGe sn) 

CALL (PHVB Ary , G55 46, 0m) 

CARE PH DPHT WB AG role ty Gi, 56580) 

Ase Ee RAR EVA Bae forte uvanv Gitmo Sh) 

CADE EPA CE WAY EFel Gn oy) 6 pce) 

Ooo 180 1:1,5 

DO 180 sn), § 

Fite pe uEiTe CM petu)oe ks Abate (ata ol) 

Fore (We eie=iFan 20h Bs Rlvaye (neo) 

eto , Ch) iaireltob, ON Seite (ee 

FRTAa(1, J) eFTSe(1, J) SFOs FIV (1, J) 
180 FarSil dee Gorse TS ok yd) aA tar le (al gn) Pra Cree Folie tg.) 
190 TF2=:TSAVE 

RETURN 

END 
ECCCEC CEE COCCEC ECE CCE CCC Ce CCCECEcCe CeCe ECC CEC EC COC C ECCS ECE 
[2 € 
[e € 
e SUBROUTINE 15 ie 
eC (= 
c c 
COCCCCELCCCE CO CECCCE CECE CECC CORP ES CEOCECCOCE CE CEC CEC COCECEEE 
iC (r5 
c SUBROUTINE FTFORM [e 
G [= 
c THIS ROUTINE CALCULATES THE BENDING AND (= 
(Ss GEOMETRIC STIFFNESS SUBMATRICES FOR THE TOP ce 
G (COMPRESSION) FLANGE IN THE ELASTIC RANGE c 
(3 c 
ECECOEGCEGCCECECOCCOSECOECCECCCE CE CCEC COC CEICECECCCReCiCeCecric 


SUBROUTINE FTFORM 

IMPLICIT REAL*8(4-H,0-7Z) 

(seat Wate) Teac Gh PN Me NTP 3 a) plane (ae, Wl ee Gf eA tale (Pee 
COMMON /BLK1/E,V,NS,ITYPE,LTYPE,JNEL,N,ICLAMP,IKIND 
COMMON /BLK4/FA,FE,FC,FD,FE 

COMMON /BLKS/ERTB,ERCM,ERTT,ERCB,ERCT,EYW,EYBF ,EYTF 
COMMON /BLK6E/ERTBAR,YB,Y1,A4REA,ECC,ALAR,R 

COMMONS /BEKS/ Ci 0 fio a Pant De Solnie h2iC SiS.) pies Sioa imma 
COMMON /BLK10/HW,TW,BCL,BF1,TF1,BF2,TF2 


ADJUST FLANGE THICKNESS TO ACCOUNT FOR 
WEB-TO-FLANGE FILLETS 


nanan 


Taney (elisa Exe On 7s) mS er mag ce 
Te CIT YREPEO.7)) Th2>BF2= TF 2 /A0BF 2) 2 OD Os TW) 
GALE EWA SC (BCL BIE 2amhi2 yc.) 
ie (ea eC wa) hate yi A= 


CALCULATE GEOMETRIC SUBMATRIX COEFFICIENTS, FAC 
AND FAC2. 


aoqnnna 


B=1.000 

Az-1,.0D00 
FACVHE* (ERT T+ER CT) * Fe 
FAC2Z=E2ERTT#FE 


CALCULATE BENDING STIFFNESS MATRICES FOR W-SHAPES 


anaaan 


YMG Veta (Ts ayNetae! piste Sy Ga a) 
ayy. Tai (C | Oe sit Sb) 


) 


le et ee Sl 


10 


1 Pa eae 1 eee . ,aret.(? * od) «eee 
* ape) Leeds t,? 4 ity we 0? F. 660% Gomes 
@y..6>- 6) bc easge emo: 

oy 6@, a4 a see aa) i? @ GSe2. 0166. = 7% 0048e5 

ee ‘), es i he 166-08 ecu > 

004 ete ay 1) ( en.0\ o@moy 


LS - 
;. io. ee ae 
we ewer. Breiintb 


ot; 
ail : 
hey M 
i. © fe a8 , at) 
ree ‘i le 
7 of} Pr e = rf y 
Pee ode As a 7 
oe F h : 
: pit Seavey tik —.o1 494 
‘yireves" m port yrte ed ree 
! i a? dal eee retecks (iare 
we os VO BAee ry e'@« Ait 
i pepeeeeediger (hee qawee et ahtee . 
im 
ipa sae Day eeeategeda sot pete agents 15 1 2e00rdans ary 
; | 
& per bunemes é 
iptiasaiw 14 ge Os retry st2 FSG 8D 08d= 2 aes beapsa hase 
g 4 
2 - eteere O06) “perez 4 
* e ' 4 p Sad hioere e774 : 
p> “a ee ba seudeer~s 1+ ar eee > 
Sd aa ast wi beee 998) Getommad: ? 
7 


s 55,5559 24 P92 228 952 290 1Res 23-006 710995502 839 
a*2os9en39)162 7524 seeps? ib an Penaeaae 
>0@, 808 @VGeee® ©¢3¢ oeP 


yew. @ 96 40. © ese om > 


oe® ro eit a> vines’ ree i* (¢un08 
Sos)48 Orta, 7 0T Ome 


uv iiide 


whose @ Sele i Hearst ey ss 


eo)  s6Pebdewegyg 170° aie! 9° @deqe he 


be owns 


os 
Sieaiean a1 


fiseoe- oc pea tes By eeNNO Te ites 


2260 
2261 
2262 
2263 
2254 
2265 
2266 
2267 
2268 
2269 
ray a fle) 
eaten 
2272 
RELIES 
2274 
2275 
2276 
ap TANG 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
22390 
22931 
2232 
2293 
2296 
2219'S 
2296 
22397 
2296 
2238 
2300 
2301 
2302 
2303 
2304 
2308 
2306 
2307 
2308 
23093 
2310 
2311 
2312 
fei! 
2314 
eens 
2316 
Ceci es 
2318 
2319 
2320 
Zaat 
2322 
2323 
2324 
ieee. 
2326 
Zsa, 
2328 
CIESPRE) 
2330 
Zao 
2332 
2333 
2334 
2335 
2336 
2a 
2338 
23398 
2340 
2341 
2342 
2 sia 
2344 
2345 
2346 
2347 
2348 
23493 
2350 
2a Sit 
2352 
2353 
2354 
2355 
2356 
2257 
23568 
2359 
2360 
2361 
PRET IZE 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
aa 
2372 


CALL PHIPHI(B,A,FIF1,CT,5,6,9) 

CRUMP Mt YANB eA Raley Coneiben 61S) 

IF WUTWPEDUT. 7)! GO 70°30 

CALL EPHI(0.000,4,EFI,CT,5,6,12) 

DOe do. wets 

po joudeT, 5 

PRICIV IJ SFASEY (1 

FTZ2(1,JS)tFB=FIYY 

FTatt wv): -PesFle 
10 FT4(1,d 

CALL EP 

Die zo I 

Piss exer cl) 
20 FT6(1,0 


‘ 


[stot Agteh It 


J) 
ae) 
( 

PAG 2 slit jy) + FAG veer loG lo cl) 


) 
J) 
+ 
i SIF ytd ply ER) 


(CH 
= PCy 
ER Die Ry (PJ) 
1(8,0.000,EF 
1,5 

Ps 

FTE (1,0) = FACTS EFI I, w) 


OF SIOn ml Ou siOn) we nlcureNg ec 


Vow e TO HSS a 


CALCULATE BENDING STIFFNESS MATRICES FOR SINGLE 
PPATIES® 


UunaAanaAn 


a) 
aS 
(aeeye seit Bh eI) 
FB Fol yey 0 
-FCHFIFI ( 
FOeFIY(I 


J 


) 
J) 


CC en nd 


poet eae) ee et Soy 
~~ ~~—au dt 


u 
, iw) 


CALCULATE GEOMETRIC STIFFNESS SUBMATRICES 


Cio menOme SOF SiCmid On sO) apie yarse 


c 
c 
c AXIAL LOAD OR BENDING OR COMBINED 
c 
5 


5 
5 
Salata ao (O06 42} 


° DO 60 Je 
BDO 60 Je 

60 er S alata ws) 
RETURN 


rome 


c 
c 
is AXTAL LOAD AT SPECIFIEO ECCENTRICITY. 
c 
7 


° FEALSE® 
DO 60 J 
DO 8O J 
Fama (ere 
Exe) Ems (ete 
RETURN 
END 
PCCECECCCCECCCEECCOCOCOCCEOCOGCE COC COC CEC EMECe ce ecceccercce 


ExALAR 

nS 

1,5 
eFT4(1,J5)-FEALSFI(T, J) 
SES FES Fall ne) 


—en wen 


n 


SUBROUTINE 16 


CECeCcecccCeceecececcececCececececceccecececececececceccececCececececceccccec 


TRS ROUT TNE SCAR EW ATE S Rie ib Awe 
BUCKLING FACTORS FOR THE ELASTIC, INELASTIC, 
AND STRAIN-HARDENING RANGES 


AAO OA OAH ttm OAM A 


c 
ie 
c 
ie 
c 
c 
SUBROUTINE FWCALC c 
c 
c 
c 
c 
c 
c 


ECCS CCECCEE CCC ECE CEC ECECECEE CEC CCE CC CCC C CCE CECE EECCECECCE 
SUBROUTINE FWCALC(BPL,WPL,TPL,EX) 
IMPLICIT REAL®8(A-H,0-2) 
COMMON /BLK1/E,V,NS,ITYPE,LTYPE,INEL,N,ICLAMP,IKIND 
COMMON /BLK4&/FA,FB,FC,FD,FE 
COMMON /BLK10/HW,TW,BCL,BF1,TF1,BF2,TF2 
COMMON /BLK11/E1,E2,ESH,YSW,YSFE,YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 
P1=DARCOS(-1.000) 


oO 


CALCULATE EFFECTIVE MODULI FOR PLAWE STRESS. 


-nNaAnn 


° EEX:E+3.ODO¥EX 
EEY>4.0D0#EtEX/EEX 
V1=2.0D0#(1.0D0+V) 
V2=2.0D0#V-1,0D0 
EXEEXK2V2+E 
Git£/V1 
G:G1 
TEA TYPE .NE. 7) Gol To 8 
GSTr2.0D0#61/(1.OD0+E/(4.0D0*E2=(1.0D0+vV) ) } 
liF SOEX On Edi, ORE Xs BO. b2)) GieiGiSi 

8 VXFEXE/(2.0D0*E ) 

VY=2,ODO#EXE/EEX 

VDEN:1.0D0-VK2VY 

IF (VDENJEOl0.000) Go Te 20 


ic 
c CALCULATE PLATE BUCKLING STIFFNESS FACTORS OX, DY, 
[2 DXY 
(2 
DX=EX/VDEN 
OY=EEY/VWDEN 
Gio) “Wola 
20 Ox=0,.000 
DY=0.0D0 
30 DXY=VX=DY 
IF (ICLOMP.EO.1) GO TO 40 
IF (JCLAMP.EO.2.AND.HW.EOQ.WPL.AND.TW.EO.TPL) GO TO 40 
[e 
(e 
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40 FA=OX*TPL¥*3eWPL/24.0D0 

FB=OY#TPL*¥*¥3*%2.0D0/3.0D0/WPL##3 

-DXY®TPLEE3/6.0DO0/WPL 
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FEO SDOSTPLEWPL 

RETURN 
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c SUBROUTINE GETST c 
c c 
c THIS SUBROUTINE USES AN ITERATIVE TECHNIOUE C 
c (REGULI FALSI) TO DETERMINE INELASTIC AXIAL [a 
iG STRAIN, EAX, WHEN THE LOAD, AXLO, IS KNOWN 1T iS 
c INCLUDES THE EFFECTS OF RESIDUAL STRAINS c 
c (E 
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SUBROUTINE GETST(AXLO,EAX,*) 

IMPLICIT REAL#8(A-H,0-2) 

COMMON /BLKI/E,V,NS,ITYPE,LTYPE,IWEL,WN,ICLAMP, IKIND 
COMMON /BLKS/ERTB,ERCM,ERTT,ERCB,ERCT,EYW,EYBF ,EYTF 
CCMMON /BLKE/ERTB4AR,YB,Y1,AREA,ECC,ALAR,R 


COMMON /BLK11/E1,E2,ESH,YSW,YSFB,YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 


c 
c 
5 CALCULATES TRATNE IMT Satin anise OR UWEB.. 
c 
TISEYTF-ERCT 
T2=EYBF-ERCB 
T3:EYW-ERCM 
TM: DMINI(T1,T72,T73) 
c 
c 
€ CALCULATE LOAD AT BEGINNING OF YIELD (PBOY) 
c 
PBOY:TMStEF® AREA 
A 
(5 
(E INITIALISE STARTING STRAINS ET1 AT BEGINNING OF 
c YIELD (PROPORTIONAL LIMIT) AND ET2 AT LOAD EQUAL TO 
fe AXLO ASSUMING LINEAR BEHAVIOUR 
(= 
ET1=™ 
P1=PBOY 
ET2=(AKLO/AREA)/E 
CALE PSCALCVET 2, P2, PPW) SAVE) 
NCOUNT=0 
10 EDEN=P2-P}1 
IF (EDEN.EO0.0.000) GO TO 30 
c . 
c 
e PREDICT STRAIN ET3 USING METHOD OF FALSE POSITION. 
c 
ENUM=ET2=(AKLO-P1)-ET1*(AXLO-P2) 
ET3=>=ENUM/EDEN 
CALI MESCANGUE TS Pia wee SAVED) 
PDIF1=0ABS((P3-P2)/P3) 
POIF2=:DABS((ET3-ET2)/ET3) 
NCOUNT=NCOUNT+#+1 
iS 
c 
c CHECK CONVERGENCE NOTE: THE PURPOSE IS TO GET THE 
c OIFFERENCE BETWEEN APPLIED AXIAL LOAD, AXLO, AND AN 
iS ASSUMED LOAD, P3, ON THE NON-LINEAR LOAD-STRAIN 
c CURVE SUCH THAT AXLO-P3=0. THE CORRESPONDING STRAIN 
c IS THE REQUIRED VALUE 
c 
IF (PDIF1.LT7.90.00100.A4N0.PDIF2.LT.0.001D0) GO TO 20 
IF {NCOUNT.GT.50) GO TO 40 
ETI2ET2 
P1rP2 
ET2:ET3 
P2=P3 
GO TO 10 
20 EAXK:ET3 
RETURN 
30 WRITE (6,50) 
RETURN 1 
40 WRITE (6,60) 
RETURN 1 
50 FORMAT (’-’,10X,‘DIVISION BY ZERO IN SUBROUTINE GETST’) 
60 FORMAT (’ ',10X,’SUBROUTINE GETST FAILED TO CONVERGE IN 50 
&ONS’) 
END 
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SUBROUTINE INVERT c 
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SUBROUTINE INVERTI(N,SE,SBI) 
IMPLICIT REAL*8(A-H,0-2) 
DIMENSION $8(15,15),S8B81(15,15) 
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(=) 
c 
Cc INITIALISE THE INVERTED MATRIX 
fe 

DO 10) Ws 1, .N 

yeh Key Sea) 14 

SBI(1I1,J)*0.0D0 

TE (1cEOsd)) SBT(T,U)£1 [Op0 
10 CONTINUE 

N1EN-4 

DO 70 K:1,N 

RP=1.0D0/SB(K,K) 

Ki=K+1 

DO 30 J=tK1,N 

SBJ=SB(K,J)=RP 

SBIJ=SBI(K,J)*RP 

DO 20 I=1,N 

SB(I,J)*#SB8(1,J)-SBU*SB(1,K) 
20 SEP(T, J) SSB1(l J) -S8Iiseset 1, kK) 

SE(K,J)=SBU 
30 SBI(K,J)=SBI¥u 

RP: ODO/SB(N,N) 

BO) iGO) =k 

SBIU=SBI(K,J5)*RP 

O00 50 I=1,N 
50 SBI(I,J)#SBI(1,4J)-SBIUFSB(1,K) 
60 SBIIK,J)#S81¥u 
70 CONTINUE 

RETURN 

END 
ccecceccececceeccceeececcecccecececeeccceccecccecceccceccececece 
c c 
c c 
c SUBROUTINE 13 fe 
c c 
c c 
CCOCCCRECECCECCCEECECEOCEEE CCE CC eCCECeC eC CeECeccCerecececcccececeecc 
iS c 
c SUBROUTINE MULT c 
iS ic 
c THIS ROUTINE MULTIPLIES TWO MATRICES SBI [es 
c AND SG AND RETURNS THE RESULTING MATRIX ABC c 
c Cc 
ecccececceccccecceceeccecececececececcececccecececcceccceececee 


SUBROUTINE MULT(ABGS,SBI,SG&,N) 

IMPLICIT REAL*8(A-H,0O-2Z) 

DIMENSION ABG(15,1S),SB1(15,15),$6(15,15) 
DO 20 J:z1,N 

DO 20 J121,N 

SUM=0.0D0 

DO 10 KE1,N 


10 SUM=SUM+SBI(1,K)*SG(K,J) 
20 ABG(I,uv)=SUM 

RETURN 

END 


ccececececcececcececceccccececceecceccececeecceccececcceececccececec 


SUBROUTINE 20 


ecccececceccececcecccceccecceececcececceccecceccecceccceccececceccce 
SUBROUTINE MCALC 


THIS SUBROUTINE CALCULATES THE ELASTIC OR 
INELASTIC BENDING MOMENT ON 4 W-SHAPE WHEN THE 
STRAIN DISTRIBUTION ON A CROSS-SECTION 15 KNOWN 
AND THE SECTION IS SUBJECTED TO A KNOWN AXIAL 
STRAIN. 
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c 
c 
c 
= 
c 
c 
c 
c 
c 
c 
c 
iE 
c 
c 
S 


CECCECCMOCCOCCRCCECECECCECECECECECE CE COCe CCC Cceecceccececc]e 
SUBROUTINE MCALC(EB,EAPP,BM,BMY,BMP,BMMP,DNEL, RDNA) 
IMPLICIT REAL*8(A-H,0-2) 

COMMON /BLKI/E,V,NS,ITYPE,LTYPE,INEL,N, CLAMP, IKIND 
COMMON /BLKS/ERTB,ERCM,ERTT,ERCB,ERCT,EYW,EYBF,EYTF 
COMMON /BLK6/ERTBAR,YB,Y1,AREA,ECC,ALAR,R 

COMMON /BLK10/HW,TW,BCL,BF1,TF1,BF2,TF2 

COMMON /BLK11/E1,E2,ESH,YSW, YSFB,YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 
1F (EAPP.EOQ.0.000) ALAR=0.0D0 


CALCULATE YIELD MOMENT, YM 
MOMENT, PM. 


DOAN, OTHE REDUCED Pb aAs tLe 


onanng 


Yi=YB-0O.5D02HW 

DT=0.S5SDOeHW-Y1 

DB=0.5D00FHW+yY 1 
YM1=YSFT®ERTBAR/(DT+O0.SDOFTF2) 
YM2=YSFBTERTBAR/(0B+O.SDO#TF1) 
YM=DMIN1(YM1,YM2) 


wow 


OETERMINE THE LOCATION OF THE PLASTIC NEUTRAL AXIS. 


nanan 


F1i:YSFB2BF1*TF1 

F2:YSFT*BF2*TF2 

FW: YSW* TW HW 

PY=FI+F2+FW 

P=ALDR#PY 

Dz=HW+0 SDO#(TF1I+TF2) 

APPY=(1,ODO+ALAR)#PY 

AMPY=(1,.O000-ALAR)*PY 

AMPY1=AMPY-2.0D0#F1 

F22=2.0D0*F2 

FW2:2,0D0TFW 

F12'2.0D02F1 

LF LAPPY.GT..O ODO [AND . APPY LE .F22) Go To 10 
IF (AMPY1.GE.0,0D0.AND.AMPY1.LT.FW2} Go TO 20 
1F (AMPY.GE.0.0D0.AND.AMPY.LT.F12) GO TO 30 
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c PLASTIC NEUTRAL AXIS IN TOP (COMPRESSION) FLANGE. 
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DOSO=D#22 

DN=D-0.SdOx(P+PY )*TF2/F2 

DNSO=DN*#2 

OMT2SO:(0-TF2)**#2 

Tas Ose eee 
CPM1=0.SDO®YSFTSBF2*(DSO-2.0D0*DNSO+DMT2S0) 
CPM2=0.S00=YSWtTWs (DMT2SO-T1S0) 
CPM3=0.5D0*YSFB2BF1®T1ISO 
PM=CPM1-CPM2-CPM3-P*(DB+O.SDO#FTF1) 

GO TO 40 


PLASTIC NEUTRAL AXIS IN THE WEB 


DSO:Dz7z2 

Disb tie  — eie 

PFP=PY-F12-P 

ON: TF1+0.S5DO=PFPeDC/FW 

DNSOZDN=#2 

OMTZ2SO=(0D-TF2)#22 

TISOSTF1232 

Bi2 Take B eo erties 
CPM1=O.5DO¥YSFT#B2T22(2.0002#D-TF2) 
CPM2=0, SDOFYSW=TWs (DMT2SO-2.0D0FDNSO+T1ISO) 
CPM3:0.5D08rYSFBEBF127T1S0 
PM:CPM1+CPM2-CPM2-P#(DB+0.5D0=TF1) 
GO TO 40 


PLASTIC NEUTRAL AXIS IN BOTTOM (TENSION) FLANGE. 


OSO=DFF2 

ON=O. 5DO2TFI®(PY-P)/F1 

DNSO=DN2#2 

OMT2SO:(D-TF2)##2 

TISOSTE tea? 

B2T2=BF2=TF2 
CPM1=O.SDO#YSFT*B827T22%(2.0D0=D-TF2) 
CPM2=0.5D02YSWtTWt (DMT2SO-T1S0) 
CPM3=0,.5D0#YSFESBF1#(T1SO-2.0D02DNSO) 
PM=CPMI+CPM2*CPM3-P#(DB+O.S5D0#TF1) 


wow 


DEFINE STRAINS AND STRAIN LIMITS Tt, T2, 3, 14 FOR 
TOP (COMPRESSION) FLANGE. 


EAPEB:EB+EAPP 
EC=(2,.0002Y1/(2.0D0#Y1-HW) )ZEB 
REB=R=EB 

EARSTSEAPP-REB 

RSTEA=REB-EAPP 

Tua Pagel Mee 

Mire SateNy ii hot EARN oF 

TSSESH-ERCT 

T&4=ESH+ERTT 


CALCULATE TOTAL FORCE IN TOP (COMPRESSION) FLANGE 


ADEN=ERCT+ERTT 
IF (EAPEB.GT.T1) GO TO So 


DEFINE LIMITS OF INTEGRATION ALFT AND ALFP. 


ALFT=1.0D0 

ALFP=1,0D0 

GO TO 100 

iz (ea Nay ist sie) (ach Ssh S76) 

IF (ADEN.EO.0.0B0) GO TO 60 
ANUM:T2-EAPEB 

ALFT=OANUM/ADEN 

IF (ACER SGT. 1, ODO) ALFT=1 .oDe 
TF CAUCET. bt. 05-0b0)) ALF Tso. ODO 
ALFP=1.0D0 

GO TO 100 

ALFT=0.0D0 

ALFP=1,0D0 

GO TO 100 

DE (EAP EB. Gt. 3))) GON TO 8 
ALFT=0.0D0 

ALFP=1.0D0 

GO TO 100 

lf UEAPER CGT. 74) Gio) To So 

IF (ADEN.EO.0.000) GO TO $0 
ANUM=T4-EAPEB 

ALFP=ANUM/ADEN 

TE (AUER. Gh. 10D)! ALEP=1) ODO 
IF (ALFP.LT.©.0D0) ALFRP20.000 
ALFT:t0.0D0 

GO TO 100 

ALFP=0,0D0 

ALFT=0.0D0 


ELASTIC RANGE. 


al 
42 
a3 
Faw 


©. SDOsBF22TF2EALFT 

2.0008 (EAPEB-ERTT)®E 
ROENFEF4LFT 
=h1®(A2+A3) 


YIELDED RANGE 


A1=0.SDO#BF22TF22(ALFP-ALFT) 
A2=2.0D08(YSFT+(EAPEB-T2)=E1) 
AB=ADENFE1*(ALFP+ALFT) 
F22=A1*(42+A3) 


ow 


STRAIN-HARDENED REGION. 
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41=0.S5DO*BF2*TF2#(1.0D0-ALFP) 
A2=2.0D0*(YSFT+(ESH-EYTF)#E1+(EAPEB-1T4)2E2) 
AZ=ADENZE2*(1.ODO+ALFP) 

F23=A18(A2+A3) 

F2tF214+F22+F23 


CALCULATE TOTAL FORCE IN BOTTOM (TENSION) FLANGE. 
IF THIS FLANGE 1S IN COMPRESSION GO TO TRE WEXT 
PART OF THE ROUTINE, OTHERWISE CONTINUE 


IF (EARST.GT.60.0D0O) GO TO 176 


INITIALISE STRAIN LIMITS FOR BOTTOM (TENSION) 
EHS Vib wich Snehy Ape) 5 


TISEYBF-ERTS 
TZ=EYBF+ERCB 
T3=ESH-ERTB 
T&4=ESH+ERCB 
ADI=ERTB+ERCB 


DEFINE LIMITS OF INTEGRATION, ALFB AND ALFBP 


UE CRSITEAS Gnd)! Go! eto A410 
ALFEB=0.0D0 

ALFBP=0.0D0 

CO TO 160 

VE RS TEAR Gi ati2 jeeG 0.810) e130 

IF (A01.£0.0.0D0) GO TO 120 
ANI=RSTEA-T1 

ALFB=AN1/AD1 

IF (ALFB.GT.1.0D0) ALFB?1.0D0 
IF (ALFB.LT.0.0D0) ALFB=0.0D0 
ALFBEP=0.0D0 

GO TO 160 

ALFB=1.0D0 

ALFBP=0.0D0 

GO TO 160 

Tle URSTEA) Sit ats)! (G0o WTO: 140 
ALFBt1.0D0 

ALFBP=0.0D0 

Go TO 160 

CF (RSTEA GT. 14) Go To VS0 

IF (A01.£60.0.0D0) GO TO 150 
ANIERSTEA-T3 

ALFBP=AN1/AD1 

IF (ALFBP.GT.1.0D0) ALFBP=1,.0D0 
IF (ALFBP.LT.0.0D0) ALFBP=0.0D0 
ALFB=1.0D0 

GO TO 160 

ALFB=1,000 

ALFBP:=1.0D0 


STRAIN-HARDENED REGION. 


A1l=:O0.5DOtBFI®TFI®ALFBP 
A2=:2.0D0*(-YSFB-(ESH-EYBF)#E1+(T3-RSTEA)©E2) 
AJ=ADIFE2*AL FBP 

FilzsAt#(A2+43) 


YIELDED RANGE. 


Al=0.5D0=#BF1#TF12(ALFB-ALFBP) 
A2=2.0002=(-YSFB+(T1-RSTEA)#E1) 
AZ=ADITE1*(ALFB+ALFBP) 
F12=A1®(A2+A3) 


ELASTIC RANGE. 


©.500=B8F12TF1#({1.O0D0-ALFB) 
2.OD0*(EARST-ERTB)#FE 
ADIFE®r( 1. ODO+ALFB) 
z=A1*(A2+A3) 

FIS+F12+F11 

TO 240 


eWewe 


CALCULATE TOTAL FORCE WHEN BOTTOM (TENSION) FLANGE 
1S 1N COMPRESSION. INITIALISE STRAIN LIMITS T1, 72, 
Sy Ul. 


BAD IS NS +} 
TZ=EYBF+ERTE 
T3=ESH-ERCB 
TOtESH+ERTE 


DEFINE LIMITS OF INTEGRATION, ALFT AND ALFP 


ADEN: ERCB+ERTE 

PF UEARST Gt.) GO TO) 18° 
ALFT=1,.000 

ALFP=1.0D0 

GO TO 230 

IF (EARST GT. %2)) Gol Tio 20° 
IF (ADEN.EO.0.0D0) GO TO 1906 
ANUM:T2-EARST 
ALFT=ANUM/ADEN 

TE GALE). Gin. t.OD0))) ALET 
Li A eb ODO) AL Fat 
ALFP=1.0D0 

GO TO 230 

ALFT=©O.0DO 

ALFP=1.0D0 

GO TO 230 

ie (HaAoor oie ety tat als} Garis) 
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ALFT=O.0DO 

ALFRPt1,000 

GO TO 230 

VPP SGEARSie eGiconey GOeeno 225 

IF QUADENWEO OV ODO) Gio; TO 220 
ANUM=TS-EARST 

ALFP=ANUM/ADEN 

EF (CARP. GT. i .OD0) ALIFPst JoD0 
TF (ALFP.LT.6.00D0) ALFRPt0.0DO 
ALFT=2O0.0D0 

GO) 7.0) 2:30 

ALFP=0.0D0 

ALFTt0 ODO 


ELASTIC REGION 


A120. SDO=BF1I2TFISALFT 
A2=2,O0DO#(EARST-ERTB)#E 
ASSADENEESALFT 
F1li2A1*(A2+A23) 


YIELGED REGION. 


Ai=O.5D02BF1z=TF1=(ALFP-ALFT) 
A2=2.0D002(YSFB+(EARST-T2)2E1) 
AZ=ADEN=E17(ALFP+ALFT) 
F1i2=41*(A2+43) 


STRAIN-H&RDENED REGION. 


A1tO.5002BF18TF1*(1.O0D0-ALFP) 
&42=2.0D002(YSFB+(ESH-EYBF)*E1+(EARST-T4)2E2) 
AZ=ADENFE2*#(1.O0D0+ALFP) 

F13rA1=(A2+A3) 

FF eRatalicriratee birt} 


CALCULATE BENDING MOMENT FROM LOWER [TENSION) 


PORTION OF WEB DEFINE LIMITS OF INTEGRATION TT}, 


iss Teh Baty PERS apis 


TI=ERCM+EC 
TZ=EYW-ERTE 
ha 6 SIME RIT 
TO=EYWH+ERTT 
TSZ=ESH+ERTT 
TE=T1+EAPP 


DEFINE LIMITS OF INTEGRATION BET1, SETRPT, BETA, 


{-3 al Jeet 


ADIZREBtTI+ERTB 
AD2©EB-T1-ERTT 

UP C6 Gite vw) Gio) FOlu2sic 
BET3=0.0D0 

BETP3=0.0D0 

GO TO 280 

IF (6. 6GT .ESH) Go To 270 

IF (AD1.E0 0.000) GO TO 260 
BET3=(TE-EYW)/AD1 

IF (BETS. G71), ODO) BETS =1) (oDo 
IF (BET3.LT.0.0D0) BET3=0.000 
BETP3=0.000 

GO TO 290 

BET3=1.0D0 

BETP3=0.0D0 

GO TO 290 

IF (401,.E0.0.000) GO TO 280 
BET3=(T6-EYW)/AD1 
BETP3:(TS-ESH)/AD1 

TPM UBEtes pore OO) Mm BiEt.s 2m ODIO 
LF (BERS iT, On ODO) BENa =O De 
DE BETPSG tT. 4). ODO) BETPSis1 7 o.D0 
DE UBEDPSO its.) 10:D'O:)) (RET Paleo. ODO 
GO TO 290 

BET3+1.0D0 

BETP3=1.000 

JF (RSTEA.GT.T2) Go To 300 
BET1=1.0D0 

BETP1=1.0D0 

GO TO 340 

se Oia Teyne sh)) desk hye}! 4 tafe) 

MF ADT. EO 6. ODO) GO TG 32/0 
BET1=(T6E+EYW) /401 

DERE ieiG Tenn ODiO])) Biba sad| ODO 
IP (REA. O60) BEM 2:0), ODO 
BETP1=1.0D0 

CO TO 340 

BET1=1.0D0 

BETP1=1.0D0 

CO TO 340 

TF (ADL EO 6 ODO)! Go To 330 
BETIz=(TE+EYW) /adl 
BETP1=(TE+ESH)/AD1 

IF (BET1.GT.1.000) BET1=1.0D00 
WP CBE TL 120,000)! BET MeO ODS 
IF (BETP1.GT.1.0D0) BETP1=1.0D0 
1F (BETP1.LT.©0.0D0O) BETP12:0.0D0 
GO TO 340 

BET1=1.000 

BETP1=1.000 


CALCULATE MOMENT FROM LOWER 
STRAIN-HARDENING REGION 


B1=TWsHW2z22/24 000 
B2:3.0OD0#(-YSW-(ESH-EYW)*#E1+(TE+ESH)*E2) 
B3=BETP1=BETP1-1.0D0 
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420 


B4=2.0DO0=(REB+TI+ERTB)*E2®(1.000-BETP12#33) 


WM1=>B12(82*683+84) 


CALCULATE MOMENT FROM YIELDED REGION. 


B2=3.OD02(-YSWr(TE+EYW)3E1)*(BETI®#2-BETP1=#2) 
8322, 000s (REB+TI+ERTB) E17 (BETI*#23-BETP1*23) 


WM2=B81+(62-83) 


CALCULATE MOMENT FROM ELASTIC REGION. 


B253,.ODO=TEFE*(BET3¥*2-BET1=#2) 


B3=2.0D08(REB+ERTB+T1)2=E*(EET3*23-BET1#*3) 


WM3:B1=(62-B83) 


CALCULATE MOMENT FROM UPPER YIELD REGION. 


B2=3.0D02(YSW+[(TE6-EYW)*E1)*(BETP33*¥2-BET3222) 
B3=2.0002(RES+ERTB+T1)®E12(BETPI2223-BET3223) 


wWM4:=812(B82-83) 


CALCULATE MOMENT FROM UPPER 
STRAIN-HARDENED REGION 


B2 
63 
WMS =B1*(B2+83) 


noe 


CALCULATE MOMENT FROM TOP HALF 
REGION OF WEB. 


CASE 1 - MIDOLE OF WEB ELASTIC. 
CASE II = MIDDICE (OF WEB SY) EL DED 
CASE III - MIDDLE OF WEB STRAIN-HARDENED. 


YE (TEC EYW) iGO TO s00 
TE EAP EB Gin, .14)) Gio 70) 25:0 


CASE ! 


DEFINE LIMITS OF INTEGRATION BET2 AND BETP2. 


BETZ=1.0D0 

BETP2=1,006 

GO TO 380 

Te CRAP EB Go wens), GOs TOM a7 6 

IF (AD2.E0.0.000) GO TO 360 
BET2=:(EYW-T6)/4D2 

DE CET 2. /1G7 91.000) BE nm2 =p 
1F (BET2.LT 6.000) BET2¢0 000 
BETP2=1.0D00 

cO TO 390 

BET2=0.0DB0 

BETP2=1.0D0 

GO TO 330 

IF \CADi2, EO .e... ODO) Gd) TO) 280 
SET2=(EYW-T6&)/AD2 
BETP2=(ESH-T6)/AD2 

VE (OBE 2 Gilet ODO) REN O.LO 
DE SCE? Toro C00))) BET 2267 oDo 
TE SUSE he 2G tase) a DiOw) BIE nuPsad= i oiDO 
1F (BETP2.LT.0.000) BETP2=0.0D0 
Go TO 390 

BET2=0.0D0 

BETP2=0.0D0 


CALCULATE MOMENT FROM ELASTIC 
B1lt=TW2HWre2/24.000 
B2=3,ODO*TEFE2BET2E22 


B3=2.0D02(EB-T1-ERTT)*#E2BET2223 
WM6=B1*(B2+B3) 


CALCULATE MOMENT FROM YIELDED 


B252.0D0*(YSW+(TE-EYW)2E1)=(BETP2=22-BET2=4*2) 
B3:2.0D0=(EB-ERTT-T1)*E12(BETP2**3-BET2=23) 


WM7=B1*(82+63) 


CALCULATE MOMENT FROM STRAIN-HARDENED REGION 


B2=3. ODO=(YSW+(ESH-EYW)*E1+(TE-ESH)®E2)2(1 
23=2.000*(EB-ERTT-1T1)2E22(1.0D0-BETP2223) 


WM8:B12(B2+B2) 
GO TO 510 
1F (T6.GT.ESH) GO TO 460 


CASE 11 


DEFINE LIMITS OF INTEGRATION BET2 


IF (EAPEB.GT.T4) GO TO 420 
IF (AD2.E9.0.000) GO TO 410 
BET2=(EYW-T6)/AD2 

ne Athi’ clsie 5 ah skeileieyy) Alsbe 
Tie Bieta tren © DIO.) Sines 
BETP2=1.90D0 

GO TO 450 

BET2=1.000 

BETP2=1.0D00 

GO TO 450 

fF (EAPEB-.GT.75) GO TO 420 
BET2=1.0D0 


1,000 
©,opo 


wow 


3. ODO (YSW+(ESH-EYW)*E14+(T6-ESH)#E2)®(-BETP32#2) 
2.CDO#(REB+ERTB+T1)2E2*BETP3Ft3 


(COMPRESSION) 


RESCION 


REGION. 


ODO-BETPZ=% 


AND BETP2 
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BETP2=1.0D0 
GO TO 450 

430 IF (A02.£0.0.0D0) GO TO 440 
BETP2=(ESH-T6)/AD2 
DF OCBETP 2.60). 1 .OD0))) BE TPZ = 1 ,.Obo 
IF (BETP2.LT,0,0D0) BETP2=0.0D0 
BET2=:BETP2 
GO TO 450 

440 BETP2=1.0D0 
BET2:=BETP2 


c 

c 

c CALCULATE MOMENT FROM YIELDED REGION. 

c 

450 BitTWtHWt*®2/24,0D0 
B2:3.0D02(YSW+(TE-EYW)#E1)*BET2=2*2 


B3:2.0D0=8(EB-ERTT-T1)*E12BET2 443 
WME=812(52+B83) 


Cc 

Cc 

€ CALCULATE MOMENT FROM ELASTIC REGION 

Cc 
B2+3.O0D0*TE6sSE2(BETP2=*2-BET2#2=2) 
B3:2,.0D0*(EB-ERTT-7T1)7E*(BETP2®42-BET22=23) 
WM7=B1=(B2+B3) 

c 

c 

c CALCULATE MOMENT FROM STRAIN-HARDENED RECION 

c 
B2=3.0D0*(YSW+(ESH-EYW)*E1+(T6-ESH)*E2)#(1,0D00-BETP22#2) 
B3:2,0008(EB-ERTT-T1)4E2*(1.0D0-BETP2##3) 
WM8=B12(B2+B3) 
GO TO 510 

c 

c CASE III 

c 

ie DEFINE LIMITS OF INTEGRATION BETZ AND BETP2. 

c 

460 IF (EAPEB.GT.T4) GO TO 480 


IF (A02.£Q9.0.000) GO TO 470 
BET2=(EYW-T6)/AD2 
BETP2=(ESH-T6)/AD2 
TF (BE T2 (Git ODO) BET 221). ope 
PF SEZ 01 ODO!) | BEn2 =O .,01p/o) 
IF (BETP2.GT.1.0D0) BETP2=1.0D0 
IF (BETP2.LT.0.000) BETP2=0.0D0 
GO TO 500 

£70 BET2=1.000 
BETP2:21.0D0 
GO TO 500 

£80 IF (EAPEB.GT.TS) GO TO 490 
IF (AD2.E9.0.0D0) GO TO 490 F 
BET2=1.0D0 
BETP2:(ESH-T6)/AD2 
TE (BETP2 GTal..oDo)) BETPS= 1) .0D0 
DE UBETPI2. Lh OOO) (BET P2='O! ODS 
GO TO 500 

430 BET2=1.0D0 
BETP2=©1.0D0 


c 

c 

c CALCULATE MOMENT FROM STRGIN-HARDENED REGION 

c 

500 Bie TWHHWrz2/24.000 
B2:2.0D0*(YSW+(ESH-EYW)2E1+(TE6-ESH)*E2)=BETP2"42 
B3=2.0D0#(EB-ERTT-T1)*E2*BETP2E#3 
WM6=B1*(B2+B3) 

c 

(a 

[= CALCULATE MOMENT FROM YIELDED REGION. 

c 
B2=3.000%(YSW+(TS-EYW)#E1)*#(BET2*#32-BETPZ*#2) 
B3=2.O0D0z2(EB-ERTT-T1)¥FE1®(BET2*=23-BETP2*#3) 
WM7=81%(B2+63) 

a 

c 

& COLCULATE MOMENT FROM ELASTIC REGION. 

( 


B2=3.0D0tTESEF(1.0D00-BET2=#2) 
B3=2,O0D07(EB-ERTT-T1)*E#(1.0D0-BET2#*3) 
WM&=B1*(B2+B3) 
510 WM =WM1+WM2+WM3+WMS+WMS 
WM =WM+WME+WM7 +WMS 
FM=:0. SDOtHWs(F2-F1) 
BM:FM+WM 
BMY=BM/YM 
BMP :BM/PM 


G 

cE 

(e CALCULATE PLASTIC MOMENT 

c 
Z1t=BF1*TF1SDB 
ZT2=BFISETFIEDT 
Z3=0,.500tTWt(DB-TF170.500)#=2 
74=0,500#TW:(DT-0,.S00*TF2)222 
PMM:YSFB2Z71+YSFT*22+YSW2(23+724) 
BMP =BM/PMM 

c 

c 

is CALCULATE DISTANCE TO THE NEUTRAL AXIS 

c 


DDNA=(TE6/(REB+ERTB+T1))*0O.5002HW 
ONL=0, SDO*HW+DDNA 
RDN&=ONA/HW 
RETURN 
END 
ECCESCECE CECH EC OPE CE CCE CECE CEEC EC Cre CECceC ee Ceeree cece cicere 


i 

c c 
c c 
c SUBROUTINE 21 c 
€ c 
fe (5 
(e c 


CUGCCOCECECCOCECECCCCECEOCCECE CEC COCCOCCECOCIEECR CCRC ec cckcccnc 
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SUBROUTINE PHI 


c c 
le c 
c c 
c THIS ROUTINE INTEGRATES THE STIFFNESS c 
c SUBMATRIX RESULTING FROM THE STRAIN ENERCY c 
c ASSOCIATED WITH THE LONGITUDINAL CURVATURE OF c 
[es A PLATE. c 
c [= 
c c 
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SUBROUTINE PHI(B,A,CC,C,NDF,N1,NH) 

IMPLICIT REALFS(A-H, O-= 7) 

SESE TOC oP SC) 5 EL A LeXe OG) SPI) adalll 4h} 

Cae XRiO UE Ainin NA) 

CO S20 Pe INA 

00 20 Jt1,NDF 

SUM=0.0D0 

00 10 K:1 

UCT Sco) | 
10 SUMEtSUM*H(11)2C(4,K) 

HCO{1,U)=SUM 
20 CONTINUE 

oO 4060 

00 40 

SUM=0 

BO 30 Ke1,N1 
30 SUM=SUM4C(1,K)#HO(K, J) 

cc(t,J)=SUM 
ao CONTINUE 

RETURN 

END 
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THIS ROUTINE INTEGRATES THE STIFFNESS 
SUBMATRICES RESULTING FROM THE STRAIN ENERGY 
ASSOCIATED WITH THE PRODUCT OF THE LONGITUDINAL 


c 
= 
c 
c 
c 
c 
c 
[= 
c 
c 
c 
c 
c 
c AND TRANSVERSE CURVATURES OF A PLATE, 
c 

c 


c 
c 
c 
c 
c 
c 
c 
SUBROUTINE PHIPHI [= 
c 
c 
c 
c 
c 
c 
c 


CECeCOCececcecciecccececeeccecceeceeccecececececcceceeccecccee 
SUBROUTINE PHIPHI(8,A,CC,C,NOF,N1,NH) 
IMPLICIT REAL=a(A-H,O-7) 
DUMEN'S DON SHG (Sin) pete Since kudiaue peel 1:82) 
CALL EXPO(8,A,H,NH) 


BIO 2:0. ei NGA 
DO 20 Jt1,NDF 
SUM:0.000 
pO 10 K:1,N1 
JIeK4+I-3 
FAECTOR= (I< )e (1-2) 4+ (k&-1)ie (K-2) 
TE (Crh bE SOWOR ald S6Ont AND 1 260). kK) GO TO) ao 
IF (1.0E.2)) FACTOR (K-1)=(k-2) 
RP KE o2 ie RrAG nO R= (Syst )im (otu=120) 
10 SUM=SUM+FACTORFH(II)=C(4U,) 
HC(1,J)=SUM 
20 CONTINUE 
DO 40 1:1,NDF 
DO 40 J:i,NOF 
SUM:0,000 


DO 30 Kt1,N1 


30 SUM:SUM+C(1T,K)*®HC(K, J) 
cc(1,J)=SUM 

40 CONTINUE 
RETURN 
END 
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SUBROUTINE PHIY 


c 
c 
Cc 
c 
[= 
c 
(e 
c 
c 
[e THIS ROUTINE INTEGRATES THE STIFFNESS 
c SUBMATRICES RESULTING FROM THE STRAIN ENERGY 
Cc ASSOCIATED WITH THE CROSS CURVATURE OF A PLATE. 
c 
GCCECECOECEESCESECOCCOCCOCECCECOCECCECCOCE CC CC CCRC ECCCCCEC OCC cic 

SUBROUTINE PHIY(B,4,CC,C,NDF,N1,NH) 

IMPLICIT REAL#8(A-H,0-2) 

DUMENS TON SHE (Site Giti Oo apcClut nay lige (non) 

CALL EXPO(B,A,H,NH) 

DO 20) Wei, Nit 

pO 20 Jt1,NDF 

SUM:0.000 

pO 10 K=1,N1 

Aatue: Kitil oss) 

FACTOR=(1-1)#(K-1) 

DE Gln EOn in ORn Kn EO.) GON Tae oO 

SUMZSUM+FACTOR#H(I1)=C(U,K) 


10 CONTINUE 
HC(I,J)=SUM 
20 CONTINUE 


BDO 40 1:1,NDOF 
po 40 Jt1,NDF 
SUM:0.0D0 

Dio) 30> IK zi, Nia 


30 SuUmM:SUM+C(1,K)*HC(K, J) 

cc(1,J)&SUM 
40 CONTINUE 

RETURN 

END 
COCECEECCOCECECECCECCECECECCCCECECCCCOCCOC CCC CEC CecCeccCecccecece 
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Ssa2s 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
= fe fe 18} 
3332 
S23 
3334 
Sais 
3336 
Said 
3338 
3333 
3340 
3341 
2342 
3343 
3344 
3345 
3346 
"3347 
3366 
3349 
3350 
ee oa) 
sa S12 
Saas 
3354 
a25is 
3256 
3357 
2356 
3359 
3360 
2361 
3362 
2363 
3264 
2365 
3366 
32367 
32368 
3369 
3370 
he fio 
Eland 
2373 
3374 
oss 
Sse 
Sian 
3378 
3378 
3380 
338) 
2382 
3383 
2384 
3385s 
3386 
3387 
3388 
3368 


[= 
c 
c 
c 
c 
c 
c 
c 
c 
cc 
(2 
c 
G 


10 


£0 


CCCCCCCECCeCCCOCCCCECeCecCceecCeeCceCCeCe CEC ecCeececceececcecccecce 


CECCCOCCEEC CEC CCCCCeC CCE CeCe EC CCeeCeeecccCeecCceeceeecceceeecece 


SUBROUTIWE 264 


SUBROUTINE PHIYY 


[5 
c 
(= 
c 
c 
c 
c 
THIS ROUTINE INTEGRATES THE STIFFNESS c 

SUBMATRICES RESULTING FROM THE STRAIN ENERGY c 

ASSOCIATED WITH THE TRANSVERSE CURVATURES OF c 

A PLATE c 

c 

G 

SUBROUTINE PHIYY(B,4,CC,C,NOF,N1,NH) 

IMPLICIT REAL*8(4-H,0-72) 

OXIMENS VOR THC S erie (een eG aa) a Hienes 

CALL EXPO(B,A,H,NH) 

BO 20 12/3, Nit 

DO 20 J:z1,NDF 

SUM=0.0D00 

00 10 K=3,N1 

T]2K+1-5 

SUM=SUM+(I-1)#(1-2)2(K-1)8(K-2)=H(11)FC(4U,K) 

HC(1,45)=SUM 

CONTINUE 

DO 40 1:21,NOF 

DO 60 J:1,NDF 

SUM?0.0D0 

00 30 K=3,N1 

SUM=SUM+C(I,K)*HC(K,J) 

cc(y,J)=SuUM 

CONTINUE 

RETURN 

END 
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THIS SUBROUTINE CALCULATES THE ELASTIC 
BUCKLIWG STRESS FOR AXIALLY LOADED FLANGE 
PLATES HAVING EJTHER & FIXED OR A PINNED EDGE, 


c 
c 
c 
c 
c 
c 
c 
SUBROUTINE PLATE! c 
c 
c 
c 
Gc 
AND VARIOUS TYPES OF END SUPPORT. (s 

Cc 

c 
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SUBROUTINE PLATE} 

IMPLICIT REAL®8(A-H,0-2) 

DIMENSION XVEC(15,20) 

COMMON /BLKI1/E,V,NS,ITYPE,LTYPE, INEL,N, ICLAMP,IKIND 

COMMON /BLK2/CE (7,9), FEI(S, 5S), FB205,5),FES05,5), FB4(5,5),FSS(5,5) 
COMMON /BLK4/FA,F8,FC,FD,FE 

COMMON /BLK10/HW,TW,BCL,BF1,TF1,BF2,TF2 


READ IN PLATE OJMENSIONS, CALCULATE SHAPE FUNCTION 
COEFFICIENTS AND ECHO CHECK INPUT DATA. 


aie (SrA) Sk tz ala is VSS 
CALL COEFB(BF1) 

LE UUhYPE DEO] WRiInne “(6.300 INS 
IF (ITYPE.EQ@.2) WRITE (6,40) WS 
WRODTES e655: 6) VBC Bibs, mtimet, ioe 


CALL FBFORM TO FORMULATE STIFFNESSES AND ESFORM TO 
SOLVE FOR THE EIGENPAIR. 


CALL FBFORM 

CALL ESFORM(EIGVY,MM1,XVEC,&10) 
EIGV:EIGV#E 

PCRITFI*BFIFEIGYV 
SP=0.SDO2BF1/TF1 

WAVE=BCL/MM1 


WRITE OUT RESULTS: 


2 = PLATE SLENDERWESS 
EIGY S GRETVNCAL STRESS 
PCR => CRITICAL LOAD 
WAVE => WOVELENGTH 


XVEC{1,MM1) BUCKLED SHAPE 


WRITE (6,60) SP,PCR 

WRITE (6,70) EIGV,WAVE 

WRITE (6,80) XVEC(1,MM1) ,_XVEC(S,MM1) , XVECI2,MM1), XVEC(US , MMi), XVEC{ 
€4,MM1) 

RETURN 


FORMATS 


FORMAT (4F8.5) 


FORMAT ('1°/’-'/*0’,10X, “PLATE NUMBER’,13/'0O’,10X,’PINNED-FREE PLA 
ave’ /?’0O’, 0X, “SUBJECTED TO AXIAL LOAD ONLY.”) 

FORMAT (ow /iet/ Mov NOx, SP MAME NUMBER | lit) SOM OX: GPioke Dim Rie ee Peau 
&E*/oO° VOX, “SUBYECTED TO AXIAL LOAD ONLY. 4) 

FORMAT (70% / 40" /110OX, “LENGTH OF PLATE AER tn tee 
&CHES‘/‘0O’,10K,’WIDTH OF PLATE Eek S). See INIG ME Si, 
2tor Ox, THICKNESS OF PLATE Ore byes LUNCHES 250, 
210X,’YIELD STRESS OF MATERIAL Oro 400 LNGHES Ta) 

FORMAT ('0’,10K,’SLENDERNESS RATIO Eco iS S/O eTiOKy, 
&’CRITICAL LOAD FSi Gi, ee Koes in) 

FORMAT f° O" VON MoCRIUTLCAL SimRESS ss) FO. b,0)) KSI /O OX, AHA) WAY 
BELEN GH Were cee Sian oe) 

FORMAT (fies 2Ne cris Sich ecieaveus COmMOCOO OM - TGienic Vern Ure SiSe/ 8) vaut 
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SUBROUTINE PLATE2 
THIS SUBROUTINE CALCULATES 


PLATE HAVING VARIOUS BOUNDARY 
SUBJECTED TO VARIOUS TYPES OF 


agannnananannanannnna 


SUBROUTINE PLATE2 
TMPLLE RT REA SS (AH O72) 
OIMENSION XVEC(15,20) 


ececccccecccceeccececcececeececccecccececececcececcecececce 


LMS VaR ie 
CRITICAL STRESS FOR A FULLY SUPPORTED RECTANGULAR 
CONDITIONS AWO 
LOADS. 


cceccecceececeececececcceoccececeeccececececeececececcecceceece 


naanannnraannnnann 


CCcceceCccCeccececccceccccececceecceccececccceceeceecccecceccecce 


COMMON /BLK1/E,V,NS,ITYPE,LTYPE,INEL,N, I CLAMP, IKIND 
COMMON /BLK4/FA,FB,FC,FD,FE 
COMMON /BLKS/ERTB,ERCM,ERTT,ERCE,ERCT,EYW,EYBF ,EYTF 
COMMON /BLK6/ERTBAR,YB,Y1,A4REA,ECC,ALAR,R 
COMMON /BLKS/CW(7,S) ,WB1(7,7),W82(7,7),W6E3(7,7),WB4(7,7),WBS(7,7) 
COMMON /BLK1O/HW,TW,BCL,BF1,TF1,BF2,TF2 
c 
iS 
( READ IN PLATE DIMENSIONS, CALCULATE SHAPE FUNCTION 
iS COEFFICIENTSAND ECHO CHECK INPUT DATA. 
c 
READ (5,20) BCL, HW, TW, YSW 
CALL COEFW 
LE CEGYRESEOns READ (US ao0n ALAR 
IF (LTYPE.EO.3) ALAR=ALAR=YSW 
IF (LTYPE.EQ.3) AXLO=ALAR = HW TW 
Le enV PE EO 4) READE (5.3000 (Ecc 
IF (ITYPE.EQ.3) WRITE (6,50) WS 
TE in iP on 4) WRicness 6, 60)0 NS 
IF (UTYPE.£6.5) WRITE (8, 70) Ws 
IF (JTYPE.EQ.6) WRITE (6,80) NS 
TE ETc ne Ot) WRITE siba gO) 
LE CET YPRES EO .2)) WRITTE (64 1Oo) 
LE CTYPE Eo. 3)) WRITE Gy Ano}! AAR 
IF (LUIYPE.£O.4) WRITE (6,120) Ecc 
WRITE (6,130) BCL,RW, TW, YSW 
RREAZHWETW 
Y1=0.000 
ERTBAR=TWeHWt23/12.0D0 
c 
Cc ’ 
c CALL WBFORM TO FORMULATE STIFFNESSES AND ESFORM TO 
c SOLVE FOR THE EIGENPAIR. 
(E 
CALL WBFORM 
CALL ESFORM(EIGV,MM1,XVEC,&10) 
EIGVtEIGV#E 
PCR=HWaTWHEIGY 
SP2HW/ TW 
WOAVE=BCL/MMI 
( 
ce 
c WRITE OUT RESULTS 
Cc sp = PLATE SLENDERNESS 
(= EIGY 2 CRITICAL STRESS 
c PCR = CRITICAL LOAD 
c WAVE = WAVELENGTH 
(e XVEC(1,MM1) = BUCKLED SHAPE 
Cc 
WRITE (6,160) SP,PER 
WRITE (6,150) EIGV,WAVE 
WRITE (6,40) XVEC(7,MM1),XVEC(6,MM1),XVEC(S,MM1),XVEC(4,MM1) , XVEC( 
&3,MM1),XVEC(1,MM1),XVEC(2,MMi ) 
10 RETURN 
c 
c 
= FORMATS 
iS 
20 FORMAT [(4F8.5S) 
30 FORMAT (Fe8.S) 
40 FORMAT Ga Osiliyecir—qieeiesilneen lim) CU =mORtO.0.0 0.0; 2/an iirc) || mUnnenes esta Si/, 
Rieti, ol) Ve Woo ibe SARs, Oy Ne aie, i il Uh eo veo bvaekt, Oh |p Wieeee 
Sere Sears ne| ie [ule t eS Sc 6 (at Sateen |e Mayan eth ee |e mE COO OOOO ai/ati situa 
CW i Meee ete Ae ty Mayectibes sah 1h AURA, aa Seat pyAg ecm gp nk Bo 
50 FORMAT i sdluy, fOr COC iO Xo Pt Te ON UMBRO ulti, Olam Ooxi cP DININIEID! s Att uniH Eat 
&OP AND BOTTOM’) 
60 FORMAT (717/707 /*e° (10x, “PLATE NUMBER” , 13/0" 10X, “PINNED AT THE 7 
&80P AND FIXED AT THE BOTTOM’) 
70 FORMAT (2 12/ %04/7'0u7, VOX, SPATE NUMBER, 03/70), 10x), JFIXED Ar THE TO 
éP ANDO PINNED AT THE BOTTOM’ ) 
Ke} FORMAT. (otiny 2Ol/ 4OCn HOxeIPD AWE NUMBERS jlca)/1 > Ol etOX yO Ox EO) Aen hl Reet O 
&P AND BOTTOM’ ) 
20 FORMAT (‘0',10X,’SUBJECTED TO AXIAL LOAD ONLY.’ ) 
100 FORMAT [('0',10X,’SUBJECTED TO PURE BENDING.’ ) 
110 FORMAT (°0”’,10X, SUBJECTED TO AN APPLIED STRESS OF’,F10.4,’ KSI PL 
8US BENDING. ‘) 
120 FORMAT (762) NOX, “SUBSVECTED TO A LOAD AT AN ECCENTRICITY OFA) FE 3), - 
& INCHES. ’) 
130 FORMAT (°0O'/’0’,10X, LENGTH OF PLATE FaaerSon 4 qicemet iy 
SECHES S/O COX OWT OF oOr PATE Se FS SUN GH E Site/, 
E204 NOx, STH TCKNES SS) Of PATE fe 95  ANCMES YO 
&810X,’YIELD STRESS OF MATERIAL Fe oe Saya KS alaca) 
140 FORMAT (‘0’,10xX,’SLENDERNESS RATIO EO 41/1 O.a at OX, 
é’CRITICAL LOAD CHU A Lt Wee A Sieg ak 
150 FORMAT UOT 8 TOK, “CRITREAL STRESS §° F106, KSI os 40%. VOX 2HACE WAY 
@EWENGGH 9205S. 4/4 ie) 
END 
COCCCCCECCCCECCCEECCCECCCCCOCCEECECOEEDECCECE CES RCCOCCCECCCING 
c c 
c [ss 
Cc SUBROUTINE 27 c 
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SUBROUTINE PLATES 


STRESS, CRITICAL LOAD, AND BUCKLED CONFIGURATION 
FOR A W-SHAPE SUBJECTED TO AN AKIAL LOAD 

ELASTIC OR INELASTIC ANALYSIS MAY BE PERFORMED 
FOR VARIOUS END CONDTIONS AWD RESIDUAL STRESSES 


c 
c 
c 
c 
c 
c 
GS THIS SUBROUTINE CALCULATES THE CRITICAL 
c 
c 
c 
c 
c MAY ALSO BE INCLUDED 

c 

c 


NAaANnANNnnANANAnDANANAANADAN 


ECECCOCE CE CEE CCOCECCCCECCCeehececececcececceccecercecececce 
SUBROUTINE PLATES 
IMPLICIT REAL*8(A-H,0-2Z) 
OIMENSION XVEC(15,20) 
COMMON /BLKI/E,V,NS,ITYPE,LTYPE, INEL,N,]TCLAMP,IKIND 
COMMON /BLK2/CB(7 
COMMON /BLKS/ERTB,ERCM,ERTT,ERCB,ERCT,EYW,EYBF,EYTF 
COMMON /BLKS/ERTBAR,YB,Y1,AREL,ECC,ALAR,R 
COMMON /BLK8S/CT(7,89),FT1(5,5),FTZ(5,5) ,FT3(5 
COMMON /BLKS/CW(7,38),WB1(7,7),WB2(7,7) ,WB3(7 
COMMON /BLK10/HW,TW,BCL,BF1,7TF1,8F2,TF2 


rey) Hemet SS 
7) B4(7 


COMMON /BLK11/E1,E2,ESH,YSW,YSFB,YSFT,SRTB,SRCM,SRTT,SRCB,SRET 


READ (5,170) YSW,YSFB,YSFT,GAM) ,GAM2,GAM3 
READ (5, 180) BEL, HW, TW, SF il, TE), Be 2, Tee 
READ IS con) edi sc ce Sik 


CALCULATE SHAPE FUNCTION COEFFICIENT MATRICES 


qano 


CALL COEFB(EBF!1) 
CALL COEFT(BF2) 
CALL COEFW 


c 

c 

c CALCULATE THE FOLLOWING: 

c 

c EYW => YIELD STRAIN IN THE WEB 

ic EYBF = YIELD STRAIN IN THE BOTTOM FLANGE 
c Sigil = YIELD STRAIN IN THE TOP FLANGE 

c AREA = CROSS-SECTIONAL AREA 

c ERTB = RESIDUAL TENSILE STRAIN AT WEB BOTTOM 
c ERCM = RESIDUAL COMPRESSIVE STRAIN AT WEB 
c MIDDLE 

c ERTT = RESIDUAL COMPRESSIVE STRAIN AT WEB 
c TOP 

c ERCB = RESTOUAL COMPRESSIVE STRAIN AT 

c BOTTOM FLANGE 

c ERCT = RESIDUAL COMPRESSIVE STRAIN AT TOP 
c FLANGE 

c YB = DISTANCE TO CENTROID FROM BOTTOM OF 
c SECTION 

c ERTBAR = MOMENT OF INERTIA 

c Ya => DISTANCE TO THE CENTROID FROM 

c MID-HEIGHT 

c R = RATIGC OF STRAIN IN COMPRESSION 

c FLANGE/TENSION 

c FLANGE (BENDING) 

c 


EYW=YSW/E 

EYBF:YSFB/E 

EYTFSYSFT/E 

AFY:BFIETF 

AF2=EF22TF2 

AFS=AF1+AF2 

AW: HW: TW 

AREA=AFS+AW 
ERTB=GAMI=EYW 
ERCM=GOM2*EYW 
ERTT=GAM32EYW 

FA1=AW/(12 ODO#AF1) 
FR2=AW/(12.0D008AF72) 
SER=6.0DO*7ERCM 
FERT=5.ODOFERTT 
FERB=5.ODOZERTSB 
ERCB=ERTB-FA1*(SER-ERTT-FERB) 
ERCT=ERTT-FA2*(SER-FERT-ERTB) 
SRTBZERTBTE 

SRCM:ERCMFE 

SRTTIERTTIE 

SRCBtERCBtE 

SRCT=ERCTFE 
YB=(0.5D02AW+AF2) =HW/ARES 
ERT1=TWHHWt23/12.0D0 
ERT2=BF227F2#73/12.000 
ERT3=BF 12 7TF1223/12.0D0 
ERTO=:AFS*HWtHW/4 000 
ERTIAZ=ERTIFERTZ+ERTStERTS 
Y1=YB-HW/2.0D0 
ERTBAR=ERTIA+AREATY14EFZ 
DENtO.5D0*HW-Y1 

IF (DEN.E9.0.000) GO TO 10 
RNUM=0 SDO®HWHY1) 
R=RNUM/DEN 


now 


Go To 20 
10 Rz1.0D0 
(s 
c 
(e ECHO CHECK INPUT DATA. 
c 
20 WRITE (6,190) NS 
IF (INEL.EO.0) WRITE (6,130) 
LF TUNEL £6. 4) WRITE (65140) 
WRITE (8,200) BEL, HW, TW. OF1, TE1, GF2,TF2 
WRITE (6,160) AREA,YB,ERTBAR 
WRITE (6,210) YSW,YSFB,YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 
WRITE (6, 150) E141), 2, ESH 
c 
e 
c EALCULATE BLASTING CRITICAL AX TAL STRESS. 
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CotLL FBFORM 

CAtiL FTFORM 

CALL WEFORM 

CALL ESFORM(EIGV,MM1,XVEC,&80) 
EIGV=EICV¥E 

Tit Eay tok = it Ga) 

TZ27=EYBF-ERCB 

T3=EYW-ERCM 

TM: DMINI(T1,T2, T2) 


IF SECTION BUCKLES ELASTICALLY OR JF INELASTIC 
AWALYSIS NOT REQUIRED WRITE RESULTS FOR ELASTIC 
BUCKLING OTHERWISE PROCEED WITH INELASTIC ANALYSIS 


CRSTFEIGV/E 

DES CCRS Te Len pM) Go-To. 70 
aed UN esr ee) GIO) it Oum 7. 
NSTOP=O0 

EA1ZT™M 

EA2Z=EAi 


CALCULATE EIGENVALUE FOR FIRST ASSUMED STRAIN [(EA1) 


CALL FBINAX(EA1) 

CALL FTINAX(EA1) 

COLL WBINODXK( E41) 

CALL ESFORM(S1,MM1, XVEC,&80) 
$1:2:S1-1.0D0 

NFP USA SE TOM OD CO) GoM nos 214 
GO TO 26 

NSTOP=NSTOP+1 

2 Sie? Girne) (Fo Te) 4k 
EA1=O0.5D0sEA1 

Go Te 22 

NSTOP=0 

EA2=:2.0*EA2 

NSTOP=NSTOP+} 

TF ANSTOP. GT. 20) GC) TO) 11° 


CALCULATE EIGENVALUE FOR SECOND ASSUMED STRAIN 
(EA2) 


CALL FBINAX(EA2) 

CALL FTINAX(EA2) 

CALL WBRINAK(EA2) 

CALL ESFORM(S2,MM1,XVEC,&80) 
$2=S$2-1.0D0 

IF (S2.GE-70.0D0) Go To 40 
NCOUNT=0 

GO TO 50 

EAV=SEA2 

$1282 

GO To 30 


BEGIN ITERATION USING METHOD OF BISECTION. 

NOTE: S3 1S TRE EIGENVALUE STRAIN CALCULATED FOR A 
SECTION HAVING AN ASSUMED STRAIN (EA2) CONVERGENCE 
IS REACHED PERFECTLY WHEN S$3=EAS (1.E. S3-EA3=0.0) 


EA3=O.5D0%(EA1+EA2) 

CALL FBINAX(EAS) 

CALL FTINAX(EA3) 

CALL WBINAX(EA3) 

CALL ESFORM(S3,MM1,XWEC,&80) 
$3:S3-EA3 

NCOUNT=NCOUNT#1 
DS1=DABS(EA3-EA1)/EA1 
DS2:DABS(EA3-EA2)/EA2 


CHECK CONVERGENCE. 


TL=0.001D0 

= OLE) fae Me ately pies ae cleo) Tah ner GG) 
DE SENG OUIN Tc Gari Ov) a GIO!) esOnutLOlO, 
$137:81*#S3 

TE CSS cule Onme'O>))  GiOneT One 
EA1=EA3 

$1:=S3 

GO TO 590 

EA2=EA3 

$2:S3 

GO TO §90 


CALCULATION OF CRITIC4L LOAD AND PLATE SLENDERNESS 
FOR ELASTIC CASES. 


CALL PSCALC(CRST,P,PPY,SAVE) 

SB1=0,.5D0#BF1/TF1 

SB2=0.SDO#BF2/TF2 

SW1=(HW-0O.SDO#(TFI+TF2))/TW 

SB1C=SB1=DSORT(YSFB) 

SB2C=SE2*DSORT(YSFT) 

SW1C=SW12DSORT(YSW) 

WRITE (6,250) PP, PPY,SAVE,SB1,/SE2,SWt, SBTC, SB2C, SWIC 
WAVE=BCL/MM1 

WRITE (6,220) EI1GV,WAVE 


WRITE (6,240) XVEC(12,MM1),XVEC(14,MM1),XVEC(13,MM1),xXVEC(11,MM1), 
@xVEC(1S,MM1),XVEC(11,MM1),XVEC(10,MM1),xXVEC(S,MM1),XVWEC(&,MM1), 
&XVEC(7,MM1),XVEC(5,MM1),XVEC(6,MM1),XVEC(1,MM1),XVEC(3,MM1),XVEC(2 


@,MM1),XVEC(5,MM1),XVEC(4,MM1) 
RETURN 


CALCULATION OF CRITICAL AKIAL LOAD AND PLATE 
SLENDERNESES FOR INELASTIC CASES 


CALL PSCALE (EAS, Py PPY SAVE) 
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S$B1=0.SDO=BFI/TF 
SEZ=0.SD008BF2/TF2 
SWt=(HW-0,S00*(TF1+TF2))/TW 
SB1C=S81=DSORT(YSFB) 
SB2C=SB2*DSORT(YSFT) 
SWIC=SW12DSORT[YSW) 


WRITE OUT RESULTS. 


WRITE (6,250 
WAVE=BCL/MM1 
WRITE (6,230 
WRITE (6,240 


Jar 


SE 
Ms 


,PPY,SAVE,SB1,SB2,SW1,SB1C,SB2C,SWIC 


A2,WOAVE 


VEC(12,MM1),XVEC(14,MM1),XVEC(13,MM1),xXVEC(11,MM1), 


€@xXvVEC(15,MM1),XVEC(11,MM1),XVEC(10,MM1),xXVEC(9,MM1),XVEC(&8,MM1 ) 
6XVEC(7,MM1),XVEC(S,MM1),XVEC(6,MM1),XVEC(1,MM1),XVEC(3,MM1),XVEC(2 
&,MM1),xXVEC(S,MM1),XVEC(4,MM1) 


RETURN 
WRITE 
STOP 
WRITE 
RETURN 
WRITE 
RETURN 


{6,260 
GER 2eo: 


{6,280 


) 
) 
) 


FORMAT STATEMENTS. 


FORMAT (3F12.6) 

FORMAT ('0',10X,’ELASTIC ANALYSIS.’) 

FORMAT ('0',10X,’INELASTIC ANALYSIS. ‘) 

FORMAT (‘0',10X,‘YIELD MODULUS Oe macrotY Trai 
€0',10X,’STRAIN HARDENING MODULUS MaDe pien aReS lin / BO UN O Kanes 
&TRAIN HARDENING STRAIN zc Pista be) 

FORMAT ('0’,10X%,’AREA OF CROSS-SECTION EE Sine pee SO hnlIN 
&*/'0O’,10XK,’DISTANCE TO CENTROID‘/‘ *,10X,’FROM CENTER OF BOTTOM FL 
&ANGE =’,F9.6,' INCHES’/’*O’,10X,*CENTROIOAL MOMENT OF INERTIA 
& OY wliASeths UES 2) 

FORMAT (6F8.4) 

FORMAT (7F8.5) 

FORMAT U7 Sa" Ox, WIDE FLANGE SECTION 13/40" Nox, SUBJECTED TO 
&@ AXIAL LOAD ONLY. ’) 

FORMAT ('0°/'°O’,10X,‘LENGTH OF WIDE FLANGE STONES io Scan 
&CHES’/’O',10K,’WEB DEPTH 4? Vist} Wises 7 
&'0’,19X,’WEB THICKNESS 27 E Se Si Ge NIGH IES 9/0 ms 
€10X,’BOTTOM FLANGE WIDTH Errno ae LIN GH e\Sicr/ae Oke O aa 
&OTTOM FLANGE THICKNESS G7 pe ot? WNEMES A 47 Kees, Ciel Teles 
@NGE WIDTH FE Sys NICHES¢+/i Or OX eam OP hl AN Geena 
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FORMAT ('0',10X,‘WEB YIELD STRESS =o ay AoW Sua 
@0°,10X,’BOTTOM FLANGE YIELD STRESS 3? MPD sChy (SHEP POR AVENE 7 
aOP FLANGE YJEKD STRESS Fee eS iia KS lee 2Oun MO ki pur Sime NS 
& STRAIN (BOTT. ) FLARES iA ye a lIN/AUNI ay AtOM OKs ec RES anc Ob Pen esi RAIN 
&@ (MID. WED) Be atin? VIN eter? VOR SS. lsh. Suns ite) 
é Prom St wm IN/ SN cy aOue OXF RES a COMPeeS TRAN miGE ION 1 2) 

20 ES Sy cee N/ Nias OL a Ok RES COMP SaiRIA MIN (iniOr) zs 
&FS.5,% IN/TN*) 

Lesa (C22 yf Po yl Core arly Meliss Gis) 27 AMO oG, A iS e7 OC ey Ale 
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Cy) Mat Sia y 2A i We eee et set 7) |) MOSe eBoy solar ne (Pel grail 5 o 
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FORMAT (’ *’,5xK,‘S1 FAILED TO BECOME NEGATIVE IN PLATE3 IN 20 ITERA 
&TIONS’) 

FORMAT (’ ',5X,’S2 FAILED TO BECOME NEGATIVE IN PLATES IN 20 ITERA 
8TIONS’ ) 

END 
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THIS SUBROUTINE CALCULATES THE CRITICAL 
CRITICAL BENDING MOMENT, 
CONFIGURATION FOR 
IN THE ELASTIC AND 
STRAINS AND END CONDITIONS MAY 
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SUBROUTINE 26 


UBROUTINE PLATES 


BnD BUCKLED 
LOCAL BUCKLING OF W-SHAPES 
INELASTIC RANGES RESTODUAL 


c 
c 
c 
is 
c 
Ss 
Iss 
c 
c 
c 
c 
c 
BE VARIED c 
c 
c 


SUBROUTINE PLATES 
IMPLICIT. REAL?8(&-H,0-2) 


DIMENSION XVEC(15 


,20) 


COMMON /BLK1/E,V,NS,ITYPE,LTYPE, INEL,N,ITCLAMP,IKIND 

COMMON /BLK2/CB(7,9),F81(5,5),F82(5,5),FB3(5,5),F84(5,5),FBS(5,5) 
COMMON /BLKS/ERTB,ERCM,ERTT,ERCB,ERCT,EYW,EVBF ,EYTF 

COMMON /BLKE/ERTBAR,YB,Y1,AREA,ECC,ALAR,R 

COMMON BU Ka cn ln Ory Ron tis yi Sy neon 2S 60) Fits (© On) irae (0S Sieve Been Si) 
COMMON /BLKS/CW(7,9),WB1(7,7),WEB2(7,7),W83(7,7),WB4(7,7),WwB5(7,7) 
COMMON /BLK1O/HW,TW,BCL,BF1,TF1,BF2,TF2 

COMMON /BLK11/E1,E2,ESH,YSW,YSFB,YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 
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READ JN INPUT DATS, 
READ (5,150) YSW,YSFB,YSFT,GAM1,GAM2,G4M3 
READ (5,160) BCL,HW,TW,BF1,TF1,BF2,TF2 
READ (5,120) E1,&2 ESH 
CALCULATE SHAPE FUNCTION COEFFICIENT MATRICES 
CALL COEFB(BF1) 


CAPE VSOEFT USF 2} 
CALL COEFW 


CALCULATE THE FOLLOWING 


EYW = YIELO STRAIN IN THE WEB 

EYBF = YIELD STRA4IN IN THE BOTTOM FLANGE 

Eyer > YIELD STRAIN IN THE TOP FLANGE 

BREA => CROSS-SECTICNAL ARES 

ERTB = RESIOUAL TENSILE STRAIN AT WEB BOTTOM 

ERCM = RESIDUAL COMPRESSIVE STRAIN AT WEB 
MIDOLE 

ERTT = RESIOUAL COMPRESSIVE STRAIN AT WEB 
TOP 

ERCB = RESTOUAL COMPRESSIVE STRAIN &4T BOTTOM 
FLAWCE 

ERCT = RESIDUAL COMPRESSIVE STRAIN &T TOP 
FLANGE 

YB > DISTANCE TO CENTROID FROM BOTTOM OF 
SECTION 

ERTBAR = MOMENT OF INERTIA 

yi = DISTANCE TO THE CENTROIO FROM 


M1D-HEIGHT 
R > R&TIO OF STRAIN IN COMPRESSION 
FLANGE/TENSION FLANGE (BENDING) 


EYW:=YSW/E 

EYBFZYSFB/E 

EYTF:YSFT/E 

AFi=BFISTF1 

OF2=BF2STF2 

LFS=AFI+2F2 

BWrRWE TW 

AREA:AFS+AW 

ERTB=GAMIZEYW 

ERCM:GAM2=EYW 

ERTT=GAM3=EYW 
FR1=AW/(12.0D0=4F1) 
FL2=4W/(12.0008AFZ) 
SER=6.ODOFERCM 
FERT=5.ODOFERTT 

FERB=S5 ODOFERTE 
ERCBSERTB-FAI12(SER-ERTT-FERB) 
ERCTSERTT-FA2*®(SER-FERT-ERTB) 
SRTB=ERTEPE 

SRCM:ERCMZE 

SRTITZERTTZE 

SRCBSERCBTE 

SRCTIEERCT#E . 
YB=(O0.5DO=®AW+AF2)*HW/GREA 
ERT1:=TWtekWte2z3/12.0D0 
ERTZ=BF22TF2223/12.0D00 
ERT3=BF1#TF1#23/12.6D00 
ERTS=A4F°StHWtHWtO 2500 
ERTIAZERTIFERTZ+ERTIFERTS 
Y1=YB-HW/2.0D00 
ERTEAR=ERTIA+AREAFY1222 
RODEN=O SDO2HW-Y1 

IF ({RDEN.EO.0.000) GO TO 10 
RNUM=0.5D0=HW+Y 1} 
R=RNUM/RDEN 

GO TO 20 

R=1.0D0 


ECHO CHECK INPUT CATA. 


WRITE (6,180) NS 

IF (JNEL.EO.0) WRITE [({6,130) 

TF UNE SEQ. 1)" WRITE (C6 516'0)) 

WR KE (6200) BCL HW TW Brot jour?) Bez, ones 

WRITE (6,180) AREA, YB,ERTBAR 

WRITE (6,210) YSW,YSFB,YSFT,SRTB,SROM,SRTT,SRCOB,SRCT 
WRITE: {6€, 070)) Et e2, £SH 


0 


&LCULATE ELASTIC CRITICAL STRESS 


CALL FBFORM 

CALL FTFCRM 

CALL WBFORM 

CALL ESFORM(EIGV,MM1,XVEC,&80) 
EI1GV:EIGVFE 

CRST=EIGY/E 

CRSTIZR=ECRST 

ECs(2. oD02¥1/(2.D02Y1-HW) )=CRST 
TISFEYTF-ERCT 


S TEA = (4-3) PH Se i) 
TI=EYW-ERCM 
T4:EYW-ERTB 
TS EYWeERTT 


som nm 


JF SECTION BUCKLES ELASTICALLEY OR TE INELASTIC 
ANALYSIS IS NOT REQUJTRED WRITE OUT RESULTS AWD 
RETURN TO MAIN SUBROUTINE FOR NEXT SPECIMEN 
OTHERWISE CONTINUE WITH JINELASTIC ANALYSIS 


TM1=DMIN1(T1,T3,TS) 
TM2=DMINI(T2,T4) 
DF {ECRST. LE. TMVCAND CRS 1. CE .tTM2. ANDIEG (FEST 3) iGo To 
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3855 
3356 
SHES 
3958 
ESCA) 
3860 
3961 
3962 
3363 
3964 
3965S 
3966 
3967 
3968 
3369 
3370 
3971 
isi 
SSiiS 
3374 
3875 
3975 
SiO Ti7. 
eis it 
3378 
3980 
398) 
3882 
3383 
39864 
3285 
3986 
3987 
3988 
3989 
38ss0 
39:9 1 
3992 
s12:3'3 
2994 
3935 
3996 
233\7. 
3998 
3ss9 
2000 
4001 
2002 
£002 
4004 
4005 
4006 
4007 
4008 
400g 
4010 
4011 
4012 
2013 
4014 
4o1s 
4016 
4017 
4018 
4019 
4020 
4021 
£022 
4023 
4024 
4025 
4026 
4027 
4028 
4025s 
2030 
4031 
2032 
4033 
4034 
4035 
4036 
4037 
40368 
42039 
4040 
4041 
40472 
4043 
2046 
204s 
3046 
4047 
4046 
4049 
4050 
405i 
4052 
4o0S3 
42054 
4oss 
a20s6 
4057 
4056 
40s3 
42060 
4061 
£062 
4062 
4064 
4o0€65 
4066 
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DE MCINEL EOmO) GON TiO) 37:0 


S 
c 
c ASSUME A VALUE OF STRAIN, EA1, AND CALCULATE THE 
c CORRESPONDING EIGENVALUE STRAIN, $1, SUCH THAT 
(2 S1-EA1 > ©. SUBROUTINE SATEOQ RESTORES EQUILIBRIUM 
c TO THE SECTION 
(= 
NSTOP=0 
E21:OMINI(TM1,TM2) 
22! EA2=EA1 
CALL SATEO(EA1,0.0D0,0.0D0) 
CALL FBINBE(EA1) 
CALL FTINBE(EA1) 
CALL WBINBE(EA1) 
CALL ESFORM(S1,MM1,XVEC,&80) 
$12$1-1.0D0 
Jim Sd actos. OOD O}lGON a5) 2.4 
GO TO 26 
24 NSTOP=NSTOP+1 
IF (NSTOP.GT.20) GO TO 105 
E41=0.SDOFEA) 
GO TO 22 
2€ NSTOP?#O 
c 
c 
c DETERMINE A VALUE OF STRAIN, EA2, SUCH THAT 
S SE CESINGS 2 I. 
c 
30 EA2:1,.2D0sEAI+AAe EA? 
CALL SATEOQ(EA2,0.000,0.000) 
NSTOP=NSTOP+1 
TF (UNS TOR Gr. 203) Gioi To 10 
CALL FBINBE(EA2) 
CALL FTINBE(EA2) 
CALL WBINBE(EA2) 
CALL ESFORM(S2,MM1,XVEC,&80) 
$22:$2-1.0D0 
If (S2.GE.0 000) Go Te 40 
NCOUNT=0 
GO TO SO 
40 EA1=EA2 
SabiziSre 
GO TO 30 
e 
Cc 
fe DETERMINE E43 BY THE METHOD OF BISECTION AND USE 
c SATEO TO FIND THE EQUILIBRIUM LOCATION OF THE 
(= NEUTRAL AXIS FOR THIS VALUE OF STRAIN. CALCULATE 
c THE CORRESPONDING EIGENVALUE, $3, AND CHECK TO SEE 
S IF S3-EA3 1S LESS THAN OR EQUAL TO THE TOLERANCE, 
c we 
c 
50 E£3=0.5D02(EA1+EA2) 
CALL SATEO(EA3,0.000,0.000) 
CALL FBINBE(EA3) 
CALL FTINBE(EA3) 
CALL WBINBE(EA3) 
CALL ESFORM(S3,MM1,XVEC,&80) 
$3=S3-EA3 
NCOUNT=NCOUNT?1 
OS1:DABS((EA1-EA3)/EA1) 
DS2:DAeS((EA2-EA3)/EA2) 
(E 
ec 
c IF CONVERGENCE H&S BEEN REACHED WRITE OUT RESULTS 
(= OTHERWISE CONTINUE ITERATIONS UP TO A MAXIMUM OF 
Cc 50. IF CONVERGENCE ISNOT REACHED WRITE OUT MESSAGE 
& AND RETURN FOR & NEW SPECIMEN. 
(E 
TL=0.001D0 
pk WS. Ghamis, OR; OS2 ssn) GOlT6 7916 
LF (WEOUNT. Gr. SiO) Gd) To 106 
S13:S1*S3 
IF (StS. ET. oO.oDo0) Go To! Go 
EA1:EA3 
$1:$3 
GO TO 50 
60 EAZ=EA3 
$2:S83 
GO TO SO 
S 
c 
c CALCULATE PLATE SLENDERNESSES [ELASTIC CASE) 
c 
70 $B1=0.5D0#BF1/TF1 
SB2=0.SD0=BF2/TF2 
SW1i2(HW-0.5002(TFI+TF2))/TW 
SB2i1C=SB1+DSORT(YSFB) 
SB2C=SB22O0SORT(YSFT) 
SW1C=SW1=DSORT(YSW) 
2 
(e 
c CALCULATE CRITICAL BENDING MOMENT (ELASTIC CASE) 
c 
CALL MCALC(CRST,©0.0D0,B8M, BMY,BMP,BMMP,ONA,RONA) 
c 
S 
(= WRITE OUT RESULTS (ELASTIC CASE) 
c 
WRITE (6,260) BM,BMY,BMMP,DNA,RDNA,SB1,SB2,SW1,SB1C,SB82C,SWIC 
WAVE:BCL/MM1 
WRITE (6,220) EIGV,WAVE 
WRITE (6,240) XVEC(12,MM1),XVEC(14,MM1),XVEC(13,MM1),XVEC(11,MM1), 
@éxvec(15,mMM1),XVEC(11,MM1),xXVEC(10,MM1),XVEC(S,MM1),XVEC(E,MM1), 
@Xvec(7,MM1),xXVEC(S5,MM1),xXVEC(6,MM1),XVEC(1,MM1),XYEC(3,MM1),xXVEC(2 
&,MM1),XVEC(S,MM1),XVEC(4,MM1) 
£0 RETURN 
c 
c 
(S CHLCULATE PLATE SLENDERNESSES (INELASTIC CASE) 
c 
so $B1:0.5D0D07BF1/TF1 
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SB2=0.5DO02BF2/TF2 
SW1=(HW-O.5D0=(TF14+TFZ))/TW 
SBIC=SB1#0SORT(YSFB) 
SB2C:SB2*DSORT(YSFT) 
SW1C=2SW1=DSORT(YSW) 


iS 

c 

iS CALCULATE CRITICAL BENDING MOMENT (INELASTIC CASE) 

c 

CALL MCALC(EL3,0.000,8M,5MY,BMP,EMMP,DNL, RDNA) 

c 

c 

c WRITE OUT RESULTS (INELASTIC CASE). 

c 

WRITE (6,260) BM, BMY,BMMP,DNA,RONA,SB1,S82,SW1,SB1C,SB2C,SWiC 
WAVE=BCL/MM1 
WRITE (6,230) EA3,WAVE 
WRITE (6,240) XVEC(12,MM1),XVEC(14,MM1),xXVEC(13,MMi),XVEC(11,MM1), 
&xvec(iS,MM1),xXVEC(11,MM1),xVEC(10,mMM1),xXVEC(S,MM1),xXVEC(&,MM1), 
€xvEc(7,MM1),XVEC(S,MM1),xXVEC(E,MM1),XVEC(1,MM1),XVEC(3,MM1),XVEC(2 
€,MM1),xXVEC(S,MM1),XVEC(4, MM?) 
RETURN 
100 WRITE (6,250) 
RETURN 
105 WRITE (6,270) 
RETURN 
110 WRITE (6,280) 
RETURN 

c 

c 

c FORMAT STATEMENTS 

c 

120 FORMAT (3F12.6) 

130 FORMAT (07, 10x), “ELASTIC ANALYSTS”. 7%) 

140 FORMAT (‘0°,10X,’INELASTIC ANALYSIS.“ ) 

150 FORMAT (€F8.4) 

160 FORMAT (7F8.5) 

170 FORMAT ('0’,10X,’YIELO MODULUS RENO tA, sem SX aaa ae 
80’ ,10X,’STRAIN HARDENING MODULUS Be se eS is Si hice/ a Onur OR aS 
8TRAIN HARDENING STRAIN G2 patho dS) 

180 FORMAT ('0',10X%,’AREA OF CROSS-SECTION Be WA Che See 18 
6/2 NOX DISTANCE TO) CENTRO LOW /(— “se 1OxX FROM CENTER (OF SOT TOM) Fit 
8 ANGE =’,F9 4,’ ITNCHES’/‘0’,10X,'CENTROIJDAL MOMENT OF INERTIA 
é elas Mehta 23) 

190 FORMAT (001/20 — 7 NOX, (WIDE FLANGE SECTION” | 13/70. Ox, “SUBJECT E 
€0 TO PURE BENDING.‘ ) 

200 FORMAT [('0'/'0O’,10X,’LENGTH OF WIDE FLANGE Be placket, 2 Ps 
&CHES’/‘0’,10X,’WEB DEPTH 3? yi, 2 UNEGISS 2 / 
&'0’,10X,’WEB THICKNESS G7 ie haa % WMS 2 Kee, 
€10X,’BOTTOM FLANGE WIDTH G4 Hele? WINERIES PHS, TOs, OE 
@OTTOM FLANGE THICKNESS HSS, 4 INCHES’ 7/70") 1OX> TOP FILA 
8NGE WIDTH ey iS Sie UNGHES 2/1 Ox wiiOX 0 Pale LANG Sant H 
€1CKNESS Saie Seo eel NIGH ES) 

210 FORMAT (‘0’,10X,’WEB YIELD STRESS ea lA ASE eet 
@0',10X,‘BOTTOM FLANGE YIELD STRESS BRS wae RSM ecOre NOK) cam 
&OP FLANGE YIEKD STRESS Ge let) VF ASCO io, SNES SIE 
& STRAIN (BOTT. ) EM eiS 2049 eee LNA NiGr/ AO Xenia eS ec OM Pam Sut RANI 
& (MIO. WED) BO eC SE 2 SUVA AC STOR VIE, las “Galway (eirtat?)) 
é 2° ith Gy UVC ee ee, OHSS 5 Lelie, Ghiivohh (toner 5 2) 
OE SS eet RYAN /a2 Ol OX PORE SEs COMPS Sm RAWNT MoTIG/P)) zs 
SPOS a0 hy Ni) 

220 FORMAT 1 (se = 7 Ose, Sy CRY DALES TRESS itive FilOrG7 Ole oui aH AL ra WAVE 
GUENGIVHO ss) Ora) 

230 FOR Mass at Cee e Om! on Si CiRiT Gale Sum AIN eit) 2 NF Ol. Gilt 4 tien. ALE: (WANE 
SENG) ee oh Sine ice) 

240 OR Sor Gy, OC 2? es Gea PN BS CntIOOOCI WG ON EY eG An, OVA? 2 
GO? Mts cig ey ONO PR? Mey ls, OPO RO aS ny? oUt (on esant Nn UC Vi 
CNS 2 Bp SUIS yn COU Cree yAeSbit op pera yl |eirati| | U = ©.00000'/ 
Aires, Blk | Mees We. RS at I Mle ear ee y GUire, 2il iO inet a) Tp We 
29 lech Seve, Ot |b Ueeat sep yikes |) fh Woe as Ey BU res || TPS bresh, 
Cui jh 8 COCO 7 I) oe eee, YE Tl WOMEP aS yeast ih 9) Au 
COP heh palate oA W Ce Nig Bey Oe Ue petal Oey alee MTG ewe Ie Neat VCO Ait aN ere 
Gla J5,, Ay, OF © OpoOCSe? WOE, OM SS a ews OOPS TS eset AI OB 
28 Sims 6, Vee eo Fs 5)) 

250 FORMAT (//' ',10X,*‘CONVERGENCE FAILURE IN SUBROUTINE PLATES IN SO 
&ITERATIONS. ’) 

269 FORMAT ('0',10X,’CRITICAL BENDING MOMENT Be NPB eh Lest WIN 
e’/'O', 10K," CRITICAL BENDING MOMENT OS aI HY Pint 3 RONG 00 
é TUE OEM Sg 9 YIELD MOMENT 
8 “7'0*,10X,*CRITICAL BENDING MOMENT Be Wate oa7 
&10x," Lame, LO Xe PLASTIC MOMO 
@ENT DOLE NOX ODS TANCE TO THE SNEUM RAL, AXIS ene 
& °,10X%,‘FROM CENTER OF COMPRESSION FLANGE=’,FE&.4,’ INCHES’/‘0’, 10x 
€,’RDNA EO Asoth, 9 MEWS Qy ore | VOM. 3G 
20M FLANGE SLENDERNESS RATIO =',F8.&/‘O',10X,‘TOP FLANGE SLENDERNE 
&SS RATIO =’ ,FE,&/'O',10X, ‘WEB SLENDERNESS RATIO By 
&F a 74/704) 10x) CODE (SLENDERNESS (RATIO = BOTTOM) =V rsa /Wor tox; oC 
6DE SLENDERNESS RATIO - TOP 21) Fe. 4/0" 10X, “CODE SLENDERNESS OR 
&hT10 - WEB EE S70) 

270 FORMAT (‘ *‘,5X,’S1 FAILS TO BECOME NEGATIVE IN PLATES IN 20 ITERAT 
&10NS’) 

280 FORMAT (’ *’,5X,'S2 FAILS TO BECOME NEGATIVE IN PLATES IN 20 ITERAT 
a10NS’) 

END 
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SUBROUTINE PLATES 


c 
c 
c 
c 
c 
c 
c 
le 
c 
c THIS SUBOUTINE CALCULATES THE CRITICAL 

c STRESS, CRITICAL BENDING MOMENT, AND BUCKLED 

c CONFIGURATION FOR A&A W-SHAPE SUBJECTED TO A 

c CONSTANT AXIAL LOAD, AXLO ELASTIC OR IWNELASTIC 
c ANALYSIS MAY BE PERFORMED AND RESTIJDUAL STRESSES 
[2 MAY ALSO BE INCLUDED 

c 
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SUBROUTINE PLATES 
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181 
1&2 
183 
184 
185 
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187 
1B& 
168 
1$0 
191 
182 
193 
194 
18s 
196 
1$7 
188 
139 
4200 
420) 
£202 
4203 
4206 
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4208S 
a210 
RA 
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IMPLICIT REAL®S(A-H,C-2) 
DIMENSION XVEC(15,20) 

COMMON /BLKI/E,V,NS,ITYPE,LTYPE, 
COMMON /BLK2/CB(7,9),F81(5,5),F8 
TOMMON /BLKS/ERTE,ERCM,ERTT,ERCB 
COMMON /BLKE/ERTBAR,YB,Y1,AREA,E 
COMMON! /BLKS/CT(7,3),FT1(5,51],FT 
COMMON /BLKS/CW(7,9) ,WE1(7,7) ,WB 
COMMON /BLK10/HW,TW,BCL,BF1,TF1 
COMMON /BLK11/E1,E2,ESH,YSW,YSFE 


READ IN PLATE DIMENSIONS AND 
(5,310) YSW,YSFB,YSFT,GAM1, 

REAG {5, 320) BCU HW, TW, BF), TF4, 8 
{S,290) E1,&2,ESH 


FORMULATE MATRICES OF COEFFIC 
FUNCTIONS 
CALL COEFB(8BF1) 
CACO Riba ie been) 
CALL COEFW 
ICASE=1 


CALCULATE THE FOLLOWING 


EYW SYED STRAY Neely 

EYBF = YIELO STRAIN IN 

BYTE SOILS a Santee Ak Nile 

AREA = CROSS-SECTIONAL 

ERTS = RESIDUAL TENSIL 

ERCM = RESTOUAL COMPRE 
MIDOLE 

ERTT = RESIDUAL COMPRE 
TOP 

ERCB = RESIOUAL COMPRE 
FLANGE 

ERCT = RESTOUAL COMPRE 
FLANGE 

Ys = DISTANCE TO CER 
SECTION 

ERTBAR = MOMENT OF JNERT 

Y1 > DISTANCE TO THE 
MIO-HEIGHT 

R > RATIO OF STRAIN 


FLANGE/TENSION 


AFI:BFI2TF! 

AF2=©BF2*TF2 

AFS=SAF1+AF2 

BW>HWs TW 

AREAS AFS+AW 

EYW:YSW/E 

EYBF:YSFB/E 

EYTFSYSFT/E 

ERTB=GAMISEYW 

ERCM:GAM2=EYW 

ERTT=GAM32EYW 
FA1Z=AW/(12.0D08AF1) 
FA2=aW/(12.0D0#AF2) 

SER=6 ODOTERCM 

FERT=5 ODO=ZERTT 

FERB=5 ODO=ERTB 
ERCB=ERTB-FA1*(SER-ERTT-FERB) 
ERCT=ERTT-FA2*(SER-FERT-ERTB) 
SRTB-ERTBFE 

SROM:ERCMEE 

SRTTFERTT#E 

SRCBSERCB#E 

SRCTZERCTSFE 
YB=({O,SDO®AW+AF2)*HW/AREA 
ERTItTWHHW222/12.0D0 
ERT2=BF2*TF22*3/12.000 
ERT3=BF12TF1¥*®3/12.0D0 
ERTS:LFS®HWsHW20. 2500 
ERTIA=ERTIFERTZTERTS+ERTS 
YIEYB-HW/Z.0D0 
ERTBARZERTIA+AREAFY1222 
RDEN=O SDOFHW-Y1 
IF (RDEN.EQ.0.0D0) 
RNUM=O0.SDO=HW+Y1 
R=RNUM/ROEN 
GO TO 30 
R=1.0D0 

READ (5,300) 
AXV=ZYSFTZAF2 
EX2Z°YSFBFOF1 
OxX3=YSWtaw 
AXLO=ALARE(AKI+AX2+AX3) 


won woe 


GO TO 20 


ALAR 


ECHO CHECK INPUT DATA 
DE CINE EO.) (WRITE. (65s g'0)) NS 
TFs (NE EO.0)) WRITE (06),,220)) “NS: 
IF (INEL.EQO.0) WRITE (6,400) 
IF (INEL.EO.1) WRITE (6,410) 
WRITE (6,340) ALAR 
WRITE (06420) BCR HWW, Bled > ott: 
WRITE (6,450) AREA, YB,ERTBAR 
WRITE (6,430) YSW,YSFB,YSFT,SRTB 
WRITE (6,440) E1,E2,£SH 


HE GUNELS EO. 1) 
LKEEPZLTYPE 


GO TO $0 


CALCULATE ELAST IEG CRITICAL AX 


er YaP eat 


INEL,N, 1CLAMP,IKIND 
2(S,5),FB3(5.S),Fe4(5,5),F85(5,5 
PER CT PeYWyey BiG ey ie 

CC,ALAR,R 

ZASy Sy ki ele ae 
207 Ta WES er Ti 
SAA ae 
.YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 


MATERIAL PROPERTIES 


GAM2,GAM3 
E2nhe 


TIENTS OF SHAPE 


THE WEB 

THE BOTTOM FLANGE 

THE TOP FLANGE 

AREA 
E STRAIN AT WEB BOTTOM 
SSIVE STRAIN AT WEB 
SSIVE STRAIN AT WEB 


SSIVE STRAIN AT BOTTOM 


SSIVE STRAIN AT TOP 
TROID FROM BOTTOM OF 


Ts 
CENTROID FROM 


IN COMPRESSION 
FLANGE (BENDING) 


AXLO 


(Nabe laa) ae 


»SRCM,SRTT,SRCB,SRCET 


TAL LOAD 


) 


wre fe elsone ai 

wonpee e ddew*s wviesdiouss te 

ea? ie @UPOPa EV) Se) emege 

ve meron avg? HiSde ees | y 
ove 

pr sega) 2 s eoyted 

nts an Ps 3 

Poke 6 herr Hy sh iwts 3) aap * * 


€6) ed". @2e604 


sore 1s 

i pen eweqrate 
1 teei (apa ta 

ateeer 

weeettian 

ei wereree 

pveverevavs 


o, See st TOE 
eepriesss6td@ 
o° 6 biste Dee Dee 
wrrprtnseer res 

por erodes , 6 Lyaneeay 
¥ 4 e9se 4) bye 
apteeses o% a 
©et-eaw #2 Agr 
eteasuee 265088 
= eePerey or gtepe eas 
Ree med 4 + ‘w= aiaatetes 
Sag aseeree 
ded earn Gee 
Ber veer toes 
vr@pese ears 
arvpasertesn 
iw Fa: ere Yea caren aera" 
a6 « Me det Png | 
fed (cer ie et et tarerzay 
So LOeFe tI ee tQea 6 
SAGs 6 <te cen OE ETH 
6) a8@c ere eo) *eys to @pe pe +66 
eee «© ones? 
900 400 RGn4e/ 7841 eqoens 
msoeoe arwOan 
eee ©. be o948) Sp 
008+ @e4¢. anya 
oye foutrua 


oF 


bind \ 698.0! GAdE 
ype} eharea 

1hs POS O88 

‘eq -w@ir eee 


Pde EhG. Ob) *4aserZi@n 


vas 4) en: 


si8e 48 igh i ae ao inet uabele = 


hin 


s@e: Onde 


6s Om or se 
she S94) oreempeel a ree ge 2 * ae F Rai Prd 
se 


(6a¢ Ude=d neteered Threazé viasdeies | 


r19dehs 


as 


meee 


e é 
ope 


tht 


Pee ee ee es] 


Bgs3 
iw 


it 


Sesc 
ree) 


tht we de ee 


were 


nannan 


Nanna onan 


oO 


onnne 


nanan 


wnnaanna 


wn 
n 


sé 


SEé 
6° 


CALL FBFORM 

C&LL FTFORM 

CALL WBFORM 

CALL ESFORM(EIGV,MM1,XVEC,&210) 
EIGV:EIGVFE 

CRST=EIGV/E 

APPS7AXLO/LREA 


IF APPLIED LOAD EXCEEOS CRITICAL 
AND INFORMATION FOR AXIAL BUCKLING OTHERWISE 
CALCULATE CRITICAL SUPERIMPOSED BENOING MOMENT 


EF GAR PS, GE £UGY)) GH eto: 4:6 
LITYPE*L KEEP 

CALL FBEFORM 

CALL FTFORM 

CALL WBFORM 

CALL ESFORM(EIGY,MM1,XVEC,&210) 
EI1GVsEIGVzE 

CRSTISEIGV/E 

AXBRZAXLO/BREA 

EAPPZAXKAR/E 


CALCULATE PLATE SLENOERNESSES 


S$E1=0.SDO=BF1/TFi 
$B2=:0.5002BF2/TF2 
SWiz(HW-O.5002(TF1+TF2))/TW 
SB1IC=SB1*£DSORT(YSFB) 
SE2C=SB2=DSORT(YSFT) 
SWiC=SwiztOSORT([YSW) 


LOAC WRITE MESSAGE 


CALCULATE BENDING MOMENT AND WRITE OUT RESULTS FOR 
AXIAL BUCKLING 
CALL MCALC(CRST1,EAPP,BM,BMY,BMP,BMMP,DNL, RDNA) 
WRITE (€,530) BM, BMY,8MP,BMMP,DNA,RONA,SBi,SE2,SW1,S81C,SB2C,SWiC 
WAVE=BCL/MM1 
WRITE (6,476) EIGV,&XAR,WAVE 
WRITE (6,520) XVEC(12,MM1),XVEC(14,MM1),xXVEC{13,MM1),xXVEC(11,mM1), 
€xvEc(15,MmM1),xXVEC(11,MM1),XVEC(10,MM1),XVEC(S,MM1),XVEC(&8,MM1), 
@xvEc(7,MM1),xXVEC(5,MM1) ,XVEC(E€,MM1),XVEC(1,MM1),xXVEC(3,MM1),XVEC(2 
€,MM1),XVEC(S,MM1),XVEC(4,MM1) 
RETURN 
WAVE:BCL/MM1 
CALCULATE PLATE SLENDERNESSES 
S51:0.5D0=2BF1I/TFi 
SB2=20.S5D0=2BF2/TF2 
SWit(Hw-C SDC=(TF1I+TF2))/TW 
SBIC=SBi=OSORT(YSFB) 
SB2C:SB2tDSORT(YSFT) 
SwWiC=SwisDSORT(YSW) 
WRITE OUT RESULTS FOR ELASTIC BUCKLING DUE TO AXIAL 
PLUS BENDING STRESSES AKD RETURN TO MAIN PROGRAM 
CALL PSCALC(CRST,P,PPY,SAVE) 
WRITE (6,540) P,PPY,SAVE,SE1,S82,S5W1,S81C,S82€,SWiEe 
WRITE (6,460) APPS,EIGYV,WAVE 
WRITE (8,520) XVEC(12,MM1),XVEC(14,MM1),XVEC(13,MM1), EC(11,MM1) 
@xXvEc(15,MM1),XVEC(11,MM1),XVEC(10,MM1),xVYEC(S,MM1),xXVEC(&e, MM 
@xvEc(7,MM1),XVEC(S,.MM1),XVEC(S,MMi),XVEC(1,MM1),XVEC{ MM1),XV¥EC(2 


{ 
@,MM1),XVEC(S,MM1),xXVEC(4,MM1) 
RETURN 


CALCULATE CRITICAL 
AT 


AXIAL LOAD 
QNALYSIS SHAl= 1715 EZ 


FOR STEPS 


LKEEP=LTYPE 
EEVEE aa 

TIZEYTF-ERCT 

T2=EYBF-ERCS 

TI =EYW-ERCH 

TM: DMINiI(T1,T72,T73) 

CALL FBFORM 

C&LL FTFORM 

WEFORM 

CALL ESFORM{EIGVY,MMi1,XVEC,&2640) 
EIGV2E 

SGN AE 

RST.LE.TM) GO TO 10600 

=© 

baal 

Al 

FBINAX(EA1) 

FTINAX(EA1) 

WEINAX(EA1) 
ESFORM(S1,MM1,XVEC,&240) 
1-1.00D0 

LF [S450 -8bO:} .co To 55 

SO TO 5&6 

NSTOP=NSTOP+1 

IF (NSTOP.GT.20) GO TO 2€5 
EA1=0.S5D08EAI 

GO TO §2 

NSTOP=0 

EA2=1.2D0tEAI+ARFEA2 
NSTOP=NSTOP41 

LF, UNS TOP. GT 20)! GOB 276 
CALL FBINAX(EA2) 

CALL FTIWAX(EA2) 

CALL WBINAX(EA2) 

CALL ESFORM(S2,MM1,XVEC,&240) 
$2=S2-1.000 

lf {S2.GE.0.0D6}] GO Te 76 
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NCOUNT=0 

GO TO 80 

EA1:=EA2 

$1=S2 

GO TO 60 

EA3=0,.500"(EL1+EA2) 

CALL FBINAX(EA3) 

CALL FTINAX(EA3) 

CALL WBINAX(EA3) 

CALL ESFORM(S3,MM1,xXVEC,&240) 
$2=S3-1.0D0 

NCOUNT=NCOUNT*#1 
DS1=DABS((EA1-EA3)/EA1) 
DS2=DABS((EA2-E£A3)/EA2) 

TL=O0.001D0 

TF COSH eine cine OlRe DO Si2iie iy atin meGiOl TiO! at) ©: 
IF (NCOUNT.GT.50) GO TO 200 

$13:81783 

DEP sCSiSeeln oO . ODO) Go) 1.0) so 

EAI: EAS 

Heston) 

GO TO 80 

EA2=EA3 

S2's3 

GO TO 80 

STRAIN=CRST 

Go! To! Azo 

STRAIN=EA3 

CALE PSCALCISTRAIUN PF PPY , SAVE) 
SB1=0.5D0=BF1/TF1 

SBZ=0.5D0*BF2/TF2 
SW1=(HW-0.5003(TF1+TF2))/TW 
$B1C=SB1*DSORT(YSFB) 
S82C=SB2"DSORT(YSFT) 
SW1C=SW17DSORT(YSW) 

WRITE (6,540) P,PPY,SAVE,SB1,SB2,SW1,SE1C,SB2cC,Swic 
WAYE=BCL/MM1 

WRITE (6,510) STRAIN,WAVE 

WRITE (6,520) XVEC(12,MM1),XVEC(14,MM1),XVEC(13,MM1),xXVEC(11,MM1), 
@xvec(15,MM1),xXVEC(11,MM1),XVEC(10,MM1),xXVEC(S,MM1),XVEC(&8,MM1), 
&@xXxvec(7,mMM1),xXVEC(S5,MM1),XVEC(6,MM1),XVEC(1,MM1),XVEC(3,MM1),XVEC(2 
&,MM1),XVEC(S,MM1),xXVEC(4,mM™mM1 ) 


IF THE APPLIED AXIAL LOAD IS GREATER THAN THE 
CRITICAL AXIAL LOAD, WRITE OUT MESSAGE. OTHERWISE 
CONTINUE 


ie CARO GE.e)l Go, Tol 236 
WRITE (6,350) 1CMSE,AXLO 
WRITE (6,340) ALAR 


DETERMINE THE STRAIN CORRESPONDING TO THE APPLIED 
AXIAL LOAD 


PBOYS=TMtEZ AREA 

DE WAX OE PIB OW) Gidh 10 Mra\o. 
CALL GETST(AXKLO,EAPP,&210) 
Go TO 150 

EAPP=AXLO/AREA/E 

Cathy Pie LIE P 

WRITE (6,360) STRAIN, EAPP 


BEGIN CALCULATION OF CRITICAL BENDING STRAIN. 
ASSUME INITIAL STRAIN, ESE1, AND RESTORE 
EQUILIBRIUM TO THE SECTION USING SUBROUTINE SATEO 
CALCULATE THE CORRESPONDING EIGENVALUE STRAIN SABI) 
CIOEALLY EQUAL TiO) (ESS1s/ APP WHERE EAPP 1S THE 
APPLIED AXIAL STRAIN). 


NSTOPEO 
ESB1=0.1D08(STRAIN-EAPP) 
ESB2=ESB1 

CALL SATEO(ESB1,EAPP,AXLO) 
CALL FBINAB(ESB1,EAPP) 

CALL FTINAB(ESB1,EAPP) 

CALL WBINAB(ESB1,EAPP) 

CALL ESFORM(S4B1,MM1,XVEC,8&240) 
SAB1°SAB1-ESB1-EAPP 

IF (SAB1.LT.©.0D0) GO TO 1564 
GO TO 156 

NSTOP=NSTOP+1 

IF (NSTOP.GT.20) GO TO 255 
ESE1=0.5D02ESB1 

NSTOP=0 
ESB2:1.2D0#ESB1+AL#ESB2 

CALL SATEO(ESB2,EAPP,AXLO) 
NSTOP=NSTOP+41 

1F (NSTOP.GT.20) GO TO 260 


DETERMINE THE VALUE OF ESB2 SUCH THAT 
SIABi2 = sBio Bi 2ceibuaie bas, LO 


CALL FBINAB(ESB2,EAPP) 

CALL FTINAB(ESB2,EAPP ) 

COLL WBINAB(ESB2,EAPP ) 

CALL ESFORM(SAB2,MM1,XVEC,&2840) 
SAB2=SAB2-ESB2-EAPP 

IF (SAB2.GE..0.0D0)) Go TO 170 
NCOUNT=0 

CO TO 180 

ESB1:ESB2 

SAB1:SAE2 

GO TO 160 

ESEI=O0. S007(ESE1+ESB2) 


DETERMINE ESB3 BY THE METHOD OF BISECTION AND 
CONTINUE ITERATIONS UP TO A MAXIMUM OF SO 
CONVERGENCE JS REGCHED WHEN SAB3-EAB3-EAPP IS CLOSE 
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ENOUGK TO ZERO. 


CALL 
CALL 
CALL 


SATEO(ESE3,EAPP,AXLO) 
FEINAB(ESES2,EAPP) 
FTINAB(ES83,EAPP) 

CALL WBINSE(ESB3,EAPP) 

CALL ESFORM(SAE3,MM1,XVEC,&240) 
SAB3:SAB3-ESB3-EAPP 
NCOUNT=NCOUNT+?+1 
DS1=DaBS((ES&3-ESEB1)/ESB1) 
0S2=0AB8S((ESB2-ESB3)/ESB2) 
TL=0.00100 


i Wikis! Cup e uplhtet soles de (ie Sai Teilsf apts) 
1F (NCOUNT.GT.SO0}) GO TO 250 
SABiI=SAB1#SA4B3 

IF (SAB13.LT.0.000) GO TO 190 


ESB1z:ESB3 
SAB)=SOB3 
GO TO 180 
ESB2:ESB3 
SAB2=ShB3 


GO TO 180 
WRITE (€,480}) 
RETURN 


CALCULATE PATE SLENDERNESSES 
S$B120.5D0=7BF1/TF! 

S$B2=0 SDO#BF2/TF2 
SW1:(HW-0.5002(TF1+TF2))/TW 
SBIC=SBI=DSORT(YSFB) 
SB2Cz=SB2=DSORT(Y °FT) 
swicz=Sw1i=DSORT(YSW) 


CALCULATE CRITICAL 


CRITICAL STRAIN, ESE3, AND WRI 
CALL MCALC(ESE3,EAPP,8M,BMY,8MP,B 
WRITE (6,530) BM,BMY,BMP,BMMP,DNA 
WAVE=BCL/MM1 


RATIOSESB3/EYTF 


WRITE (6,370) RATIO 
WRITE (6,510) ESB3,WAVE 
WRIT Cbs S20) OVE CH tao) ok Weed 


€xveEc(i5,MeM1),xVEC(11,MM1),xXVEC(10 


@xvEc(7,MMi),xXVEC(S5,MM1),XVEC(6,MMi),XKVECI 1} 


&,MM1),xXVEC(S5,MM1),XVEC(4,MH1) 


220 


BENDING MOMENT CORRESPONDING TO 


TE CUT RESULTS 


MMP ,DNA,RONA) 
,RONA,SB1,S82,SW1,S81C,SB2C,SWIC 


4,MM1),XVEC(13,MM1),xXVEC(11,MM1), 
.MM1),XVEC(S,MM1),xXVEC(8,MM1), 
mM1), XVEC(2,MM1),xXVEC(2 


GO TO 240 

WRITE (6,380) ICASE,AXLO 

WRITE (6,340) ALAR 

WRITE (6,490) 

READ IN NEXT VALUE OF ALAR = P/PY WHERE P IS THE 
APPLIED AXIAL LOAD AND PY IS THE YIELD LOAD 
CONTINUE WITH CALCULATIONS OF CRITICAL BENDING 
STRESS FOR THIS AXIAL LOAD. 

READ (5,300) ALAR 

ICASE=]CASE*+1 

ALAR1:0.0D0 

ALAR2:-1.000 

VF (ALAR LT. ALAR2) RETURN 

LF {ALAR ET. ALAR) Go TO 1:6 

AXLOZQLAR=(AX1+AX2+AX2) 

TF (AXLO GE PF} GO TO 236 

GO TO 130 

WRITE (€,500) 

RETURN 

WRITE (6,S60) 

STOP 

WRITE (6,550) 

STOP 

WRITE(6,580) 

STOP 

WRITE([6,570) 

STOP 

FORMAT STATEMENTS 

FORMAT (23F12.6) 

FORMAT (F12.6) 

FORMAT (6F12.6) 

FORMAT [7F10.€) 

BOR MAT tales rent Ox SW DE RILANG Es SECTION lah. Of Ox, CSU SE Car, 
ZED) TOMWAN APP EVER AGTALS OAD) OF JFtO0 608 KiPS PLUS) BENDING | 4) 

FORMAT (4047410%, fox “RUAPPLTED IP (YTELD) =f FS). 4) 

FORMAT Nene / “> NOx; CREAM COLUMN IGASE NOW laf 000 Tox, SUBJECT E 
£D TO AN APPLIED ANTAL LOAD OF’ .Fi2l6,% Kips PLUS BENDING. 7} 

FORMAT (0%, 1OX), WERITIGCAL AXLAL STRAIN EO SE Ne 187 tO tox 
&,’APPLIED AXIAL STRAIN Se ae 8) 

FORMAT (“07 , VOX, "CRIT. BEND. STRAIN/YVITELD STRAIN = FS. 5) 

FORMAT 1407/2 =" /%="> 10x, “BEAM-COLUMN CASE Nol”, 13/204) 10x, “SUBEETE 
20 TO AN APPLIED AXIAL LOAD OF’,F12.6,’ KIPS PLUS BENDING.‘ ) 

FORMAT (ett < fae Ox, WIDE FRANGE SEETION .ts/404, 0X, cCALCUL AT 
€U0N Of GCRITTOCAL AXTAL LOAD”) 

FORMAT (’0’,10X,’ELASTIC ANALYSIS.) 

FORMAT (‘0’,10X,’INELASTIC ANALYSIS.’ ) 

FORMAT ['0°/'0',10X,*°LENGTH OF WIDE FLANGE SE Ohare DN 
&8CHES’/'O’,10X,‘WEB DEPTH = FS. Sin) TNCHES“// 
&'O',10X, ’WEB THICKNESS ero ese TNE RES fi Oue 
€10x, ‘BOTTOM FLANGE WIOTH Sank SiS INCHES! Os Ox e 
20TTOM FLANGE THICKNESS =F 9, S. * UNGRES?/*0?) Tox, >TOP FEA 
@NGE WIDTH eee Ses ee ETN CHES ¢ /euO tO Xen OP atl AN Goto 
@1CKNESS 2 Sb EN GRES 2) 

FORMAT ('0’,10X,’WEB YIELD STRESS Sta Fy KS ets 
20’,10X,’BOTTOM FLANSE YIELD STRESS Si Ie Ter RSM OM OOG eon 
€O0P FLANGE YIELD STRESS SiRF Oras ey Oe OR LOR ES TENS 
& STRESS (BOTT. ) VES Sy KS). “sO 10e), GRES.s COMPS STRESS 
&(MID. WEB) PUPS Sele KS Lee On LO xT MRE Sane N SiS t eS Samet OP a) 


2a4 


ee mg Te ant iret 2 ait nes 
jaa, Shee weet FPS a wrth proba Soha era 4 co 


orogens 
at Mo oer Tt 


oe ivizaes ‘aber laae's :! Pelt 
1 ieee eth ye bs meme ey Veet (io, oe paver 
oie. ,4 “is o~ ¢> 
Fras,aeru bee Phoere,) * 
wee ee 
Sive,.@seds (GG, 0058 


rem ,e ee, Be eries 
eel 5) @free 


s4> 29 4 © 5— 4 ' %2*. Ss 45508 *8ue #1 Gees 
a aseh *; Sie She, 4A_se oor deen 

28 wjanse ines ” x Fae .e> G0 Oe Femi eer 
ate meer @)6) Be pagers 


ria jdap ot 
(eaankhooanne 
oe. ocraege 
€4¢ ¢-«neaye 
a jigeae €) Oe ral VM 
- (@e4p.¢s S0ias Ti 
ra! OTUAV ELA: 8044 Fa dEe 
ee (8,02 4/04) 4&1 


oor oie) 
a 


evenatar? raemeet 


ie. reen* 
s¢ @rte Panser 
© z10e! teeewee 


i@ @e of ’ s 
°48 .fe0° . Hr. @ op 46 OG4a,* Bole . 48 i] 
Sa Gere ae shy 648, sh b6my safee or) aoe as 37 @40 
6 we ° OGP| Fo O11 dee 4 4'n0 8 gee : @ee » 
ee se0Gre° Hee i Gite ota Mahe Off 7) te=egs 
5éigu ne “a. —— meee (*e CEbs GAT ir Obi 0808 we wt. oO 
i. s Lee Bre is haere pela’ st sei .'« ‘meet 
be eta, - ORASTS —o 168 207 seen ‘ 
66,09 = wheats GhTee epent® teee Pret ee & + Tame 
v7 71a60o Get. @ Les oo O04) @n¢ 103° 4008) th ‘ ari ane 
sates C24 pe '<o* SS cao satan rt 2 — oe oF a 
1eyeared 48) SF othe Bs) ae Chee Sie 25t | (abe 
,  ®@e8 ¥ Sis sbeavanh he © 
i i ay lpg SorTehes’ #61, -@ + ® . 
“ \* ole A Tae ch A | 
r.@* O0Ge,4 awe “vere 2 |) Sent! 
)\4oam ® 6 ) oe eds ic Yo@gwes 
‘ o¢nSe; > “, coat ae? See sae. ge 
® se: "SL payee ‘ 7 ser'is 
ost ee sae * ) beoe! O08, areoriiel onan alae 
ev. 9 Ye Le ee ores it 
' ooe 9 ¥ of tore 
ees oe 1 ee Pete , 6 
' wer, & : ea yet #o/9te@ 94a; .' 
poets 220 ‘e 2 ‘ vie. ; ¥ “, ae @ebei* Pry 
® 4 : ca ¢ : her aa 
pager © bet cent ta, .-% Pg 1h Hi 


Siuuauwe 


4€32 
4634 
4635 
4636 
46237 
4636 
4639 
£640 
464) 

4642 
4643 
4644 
a6as 
4646 
4647 
4648 
464s 
4650 
4651 

4652 
4683 
aes4g 
46s5 
46S6 
4657 
4656 
46s9 
4660 
4661 

46672 
4663 
4664 
S665 
Seéece 
S667 
SEES 
a669 
4670 
6671 

SET2 
4673 
4674 
3675 
4676 
a677 
4676 
4467S 
4680 
6681 
4662 
4633 
4686 
4665 
4686 
4687 
4686 
4689 
4690 
463} 

4692 
46°93 
4694 
aé6ees 
4696 
S6S7 
4698 
4699 
4700 
470) 

4702 
4703 
4704 
a705 
4706 
a707 
4708 
4709 
4710 
4711 

4712 
7s: 
4714 
4715 
4716 
4717 
a718 
4718 
4720 
4721 

4722 
4723 
4724 
a72'S 
4726 
4727 
4728 
47293 
4730 
4731 

4722 
4723 
4734 
4735 
4736 
4737 
4738 
4733 
4740 
4741 

a742 
4743 
47464 
4745 


440 


450 


460 


470 


480 


430 


$00 


$10 


$20 


S30 


$40 


§$0 


560 


S70 


$8Oo 


& 

Ce ty 
Secale) 
FORMAT 
EMA miler $5 
&TRAIN H 
=ORMAT 


et RS e r eme Sule ee O ar OK nee RIES: COMP STRESS Ooh) z 
De ETN, g PPR Whe Wo BGS Comp STRESS (TOP) AG Mme deat 


('0',10X,’YIELD MODULUS tT AC yy oe OAS 
"STRAIN HARDENING MODULUS BE PT Tey oh ee aE 
AROENING STRAIN SM Ohare) 

(’0',10X,’AREA OF CROSS-SECTION SOR 948 0s SiOr TN 


nn 
te) 


C/O NOx, DL ShANCE oO CENT ROMO. a2 oLOk Ve ROM ciGe Nite ih Cun iO) uit 


&ANGE 


=i oi ye NEES? // On iO Ky iGe hn RON OAL MOMENT Or ci NE Ronda 


& Psa UNGHES 62) 


FORMAT 
&T&,’°CR) 
&FE.4) 

FORMAT 
EK Sulit /A 


Ae ee (OE Mee OSC ee UE 8 2h ONS SSS I A ed hy 2 a ECs PAR ey 
Teli Aes aR Salzman, ieee Dl SLien an Ole aT Oat Al’ Pam W Al Wie be Nits r t= 


(e/a Om hen ae Rion oak we WAST S (BEND TUNED S TRE os) ORY ye die bay 
MO Nit AM Aa ts) CME ell a Shot VO ME ASR AACS (eae at Sati A TOY ie ote 5 oar! 


&,’°HALF WAVELENGTH 18',F8.4) 


FORMAT 
€CRITICA 
&MENT. ’ ) 

FORMAT 
LY es) 

FORMAT 


{(~ “, VOX, “SUBROUTINE PLATES FAILS IN SO ITERATIONS TO FIND 
L INELASTIC AXIAL LOAD PRIOR TO FINDING CRITICAL BENDING MO 


(‘'-',10X,’ BEAM COLUMN BUCKLES UNDER THE APPLIED AXIAL LOAD 


(* *," SUBROUTINE PLATES FAILS TO CONVERGE TO CRITICAL BEND 


eING STRAIN IN SO TTERATTIIONS:. ~ ) 


FORMAT 
&LENGTH 
FORMAT 
Breas 
(an iiey, Cale 
PRR et | 
e+ Fe. 5 


Ld 
Al oS 
Pa 


BESS at 


(eee ena PON an eee GRa TGA SiR AMIN MIS teat Ono Ot.) MT SnneH Al Ea WALVE 
SOE Bi r4y/) eso) 
PR te, SN St rs STS. VW if O, OOOOO! OF 
Utah Ne CBO TO UC, AR? OOM A GY Os, 
pee PE) giichey ce? Rect ty aMaeheretsh 2 |b 
, tie ec Bay gst, Pl) lp We? piste ts tal ye 
Tasso ee eee are Bo S/iT 3 tue ae | a Uae aca 
ji 2 


TSG IO te rare Bia ea oe 


©.900000" 


OmOCOOOM Vin Sitinme | mn |meUii sears gibi tesal 
WATSON, Pee heres TS), ec AHR A het ll ee 
27,°V = 0.00000” 5 ORE Ooo Tay ASL TES SY ey eh 
Sipe PAR OR ye | 
(’0’,10xX,’CRITICAL BENDING MOMENT Ce A Notre LSiioe UL 


.o— ue a 
= 
u 
Se Kyo aS 


@’/°0’,10K,*CRITICAL BENDING MOMENT SAL eS EAN GMed ban 


QE S/o 


&STIC MOMENT 


é oy 
€/ 207 V0 
& FLANGE 
& RATIO 


CGE AON at YIELD MOMENT 
"7°O",10K,’CRITICAL BENDING MOMENT Pee Be Smtr, 
OY Oana Wot ep RED. PLAST 
“7°O*,10K, ‘CRITICAL BENDING MOMENT Pec 
i YOR, 2? Hit athe ey een PLA 
777O',10X, DISTANCE TO THE NEUTRAL AXIS 
‘ *  10K,*FROM CENTER OF COMPRESSION FLANGE:’,F8.4,’ INCHES’ 
x, ‘RDNA zr’ FS. 4/70", VOX, “BOTTOM 
SLENDERNESS RATIO =',F&.4/'0',10X,‘TOP FLANGE SLENDERNESS 
7',F&.6/'0',10X, ‘WEB SLENDERNESS RATIO zie 


€FE 4/'O',10K,’COOE SLENDERNESS RATIO - BOTTOM CHAE A ait Seat We Key RY ed S1e) 


&€DE SLEN 
€@ATIO - 
FORMAT 
CL Ota a hOK 
& STRESS 


DERNESS RATIO - TOP SO Oi A, Ot Ok ea CD mesic NID ERNE sion IR 


WEB FS 4) 


(°0’,10K,’AXKIAL LOAD AT BUCKLING Plat aye LO Ay 
»’(AXTAL LOAD)/(YIELD LOAD) So GS 4.7 Oo VOx, CAVE R AGE 
AT BUCKLING Eero aie S22 Ofna OX Se OliOM) Fob AINGIE. Sib 


EENDERNESS RATIO = Pe, 4 Om, Ox orOrs FLANGE SPER DERNESS: JRA | 1:0 


Ro Ee ets 


G/ 202, Tox, WEB STEN DERNES'S RAT, 3/0 Se Oa. 7 Olan HO 


&, CODE SEENCIERNESS (RATIO (= BOT TOM 2 Ee af 1O4 10x, COE SLENDERNE 


&SS RATI 
& Minis 
FORMAT 
2LATES’) 
FORMAT 


OTe Cie: Ti hee) WO. Ok GOD ES FENDER NES SiR aun. Ova WEB 
8.4) 
(2 2 Sx) 682 SA MoE O TO SECOME INEGATI VE oN 820° ITERATIONS NTP 


(Zeek SAB 2 EAT CED TOL BEC OMESNEG AT View Ni CPE Amie |S! TINS 20M ota 


@ERATIONS’ ) 


FORMAT 
€LATEes’) 
FORMAT 


eS Xo AN TE Oln tine eC OMEMIN EiGiAneiiv cm liNee2iOl olotie Ry Aceh Oi Nis ml) Near. 


(2 Ske SAB AE EO) DOM Be COME NEGATIVE  stNe Pil Aaien 9) LIN 2 Omndon 


&ERATIONS’ ) 


Eno 


COECECEECECE ECE CSE CCOCECECCECECCECCECCECOCCECORCCEECECCEC CECE CecCee 


c 
(= 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


NANnnn 


nonaan 


CCCECECECEECT ECE COSECCSCOCCECCECCOCC OCC ECCR eC Ce ce rCcecceccec 


LOAD 
You 
THE 

RANG 


C&GCCCECECCECOCCECCCCCCECCECCCCE CEC OSC CCCCCCECCCECCeCCeECeCeCee 


SUBROUTINE 30 


SUBROUTINE PSCALC 


THIS ROUTINE CALCULATES THE AVERAGE AXIAL 
, THE RATIO OF THE AVERAGE AXJ4L LOAD TO 
D LOAD, AND THE AVERAGE AXIAL STRESS FOR 
ELASTIC, INELASTIC, AND STRAIN-HARDENING 
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SUBROUTINE PSCALC(AXST,AXP,AKPY,AXSAYV} 

IMPLICIT REALt&(A-H,0-72) 

COMMON (/BUKVAE,VGNS lly Re, bnY rie, DNB ON Vem AMP oe IK T ND 

COMMUN FE EKS/ ERTS, cReMy E Rat y RiGee y eR Gl nie VOW jel Bie, Bay tik 

COMMON /BLKE/ERTBAR,YB,Y1,A8REA,ECTC,ALAR,R 

COMMON /BLK1O/HW,TW,BCL,BF1,7F1,B8F2,TF2 

COMMON /BLEKVV/E1,€2,ESH, YSW, YSFE  YSET, SRB, SRCM, SRTT, SREB, SROT 
DETERMINE STRSIN LIMITS OF YIELOING AND 
STRAIN-HARDENINCG. 

Ti tEYBF-ERCB 

TZ=EYBFCERTBE 

TI=ESH-ERCB 

TA ESM+ERTB 

ADEN=ERCB+ERTB 
OEFINE LIMITS FOR INTEGRATION FOR FORCES OVER 
SECTION 

ae (WW Eig oteing ft amthe ly Lele er elek = ale) 

ALFT:1.0D0 

ALFPt1,0D00 

GO TO 60 

TF (A2XST.GT.1T2) GO Tid 36 

IF (ADEN.EO©.0.000) GO TO 20 

OANUM?FT2-AXST 

BLFT=ANUM/ADEN 
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140 


ALFP=1.0D0 

Go TO 60 

ALFT=0,.0D00 

ALFP=1,.0D0 

GO TO 60 

IF (AXST.GT.73)\ GO TO a0 
ALFT£0.0D0 

ALFP=1.000 

GO TO 60 

VE SGAXS Ti Gimnen4))) GO! TO) 150 
IF (ADEN.EO.0.0D0) GO TO 50 
ANUM:T4-OXST 
ALFP=ANUM/ADEN 
ALFT:20.0D0 

GO TO 60 

ALFP=0.0D0 

ALFT=0.0D0 


CALCULATE FORCES IN BOTTOM FLANGE FOR ELASTIC, 
YIELDING, AND STRAIN-HARDENING REGIONS. 


A1:O.SDOsBFIZTFIFALFT 
A2Z=2.0D08(AXST-ERTB)*E 


AZ: ADENFE*ALFT 
Fi1ltA1#(A2+A3) 
21=0.50026F12TF12(ALFP-ALFT) 
A2=2.0D02#(YSFBE+(AXST-T2)2E1) 
AZ=ADENZEIZ(ALFP+ALFT) 


F122=A12(A24A3) 
A1=0.S5SDOe8BF1*TF1t(1.0D0-ALFP) 


A2=2.0002(YSFB+(ESH-EYBF)®E1+(AXST-T4)®E2) 


A3=ADENFE2*#(1. ODO+ALFP) 
Fi3=h1*(A2+A43) 
FLSF1i+F12+F13 


DEFINE STRAIN LIMITS AND LIMITS 
THE TOP COMPRESSION FLANGE, 


TelessE Yo tue eiRiGr 

T22EY TESTER TT 

ris) S36 Sita Be Ge 

TS=ESH+ERTT 
ADENZFERCT+ERTT 

le (AXST. Gn. 14) Gio) Tid) 70 
ALFT=1.0D00 

ALFP=1.000 

GO TO 120 

SW ES p isan. Weel teil” ately 2 )e) 
IF (ADEN. EQ.0.000) GO TO 60 
ANUM:T2-AXST 
ALFT=ANUM/ADEN 

ALFP=1,.0D0 

GO TO 120 

ALFT=0.000 

ALFP=1.0D0 

GSiOgaOf Lo 

TEM CAXS T wGiiewts)) GiOn sO. OO) 
ALFT=0,0D0 

ALFP=1,0D0 

GO TO 120 

LE (CAXSit eG hana) Ger mon wo 
IF (ADEN.EQ.0.000) GO TO 110 
ANUM:T4-AXKST 
ALFP=QNUM/ADEN 

ALFT=0.0D0 

GO TO 120 

ALFP=0.0D00 

BLFT?0.0D0 
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INTEGRATION FOR 


CALCULATE FORCES IN TOP COMPRESSION FLANGE FOR 
ELASTIC, YIELDING, AND STRAIN-HARDENING REGIONS. 


A1=0.5D0tBF2*TF22ALFT 
A2=2.0D0#(AXST-ERTT)=E 


AJ=ADEN*EZALFT 
F212A12(A24A3) 
A150 SDOZBF2*TF2*(ALFP-ALFT) 
A2=2.0D0#(YSFT+(AXST-1T2)*E1) 


AZ=ADEN=E1*(ALFP+ALFT ) 
F22=A12%(A2+A23) 


h1=0.SDOfBF2"TF2*(1.0D0-ALFP) 
A2=2.0008(YSFT+(ESH-EYTF)FE1+(AXST-T4)FE2) 
AZ=ADENTE2*(1.ODO+ALFP) 


F23=A17(22+A23) 
ards Mil arse a2) ra} 


DEFINE STRAIN LIMITS AND LIMITS 
THE WEB FORCES. 


TISEYW-ERCM 

T2Z°EYW+ERTB 

T3:ESH-ERCM 

TOASESH+ERTB 

TStEYWtERT tT 

TES ESH+ERTT 

AD1=ERTB+ERCM 
ADZ=ERTT+ERCM 

THR CA K Setan Gilet) ee GOMny Oma ac: 
BETB=0.0D0 

BETBP=0.0D0 

GO TO 180 

TE AX Siti Girne hee) mols SS 
IF (AD1.E0.0.000) GO TO 140 
ANI=AXST-Ti 

BETB=ON1/AD1 

BETBP=0,.0D0 

GO TO 180 

BETE=:1.0D0 

BETBP=0.000 
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Go TO 180 

TE VAR SiG) eo Geen One iO) 
BETB=at {ODO 

FETBP=0.0D0 

GO TO 180 

GF VCAx ST 2Gh 14) Go Tar A 7S 
IF UADT EGO, ODO) GO T6 170 
ANI=AXST-T? 

BETB=1,000 

BETBP=A4N1/AD1 

GO TO 180 

BETB=1.000 

BETBP=1.0D0 

Vee AUP or eta apa! Aste apie Ry E te} 
BETT=0.0D0 

BETTPt0O.0DO 

(teh aylel vs ties 

Se (CROSS C tet othl) (SeR aah eae! 
hE GAD 2° E On Or ODIG)) 1G Ol eTi0) 2:00) 
AN2Z=AXST-T1 

BETT=AN2/AD2 

BETTP=0.0D0 

GO TO 240 

BETT=1.0D0 

BETTP=0.0D0 

GO TO 240 

ie (esa clsig a esi Isle) aes) arte) 
BETT=1.0D0 

BETTP®O.0D0 

Go TO 240 

TF UCAKS TT 2GiT on6)}) 1GiO° Te 2310 
EE CAD EQ ro ODO) GG TO) 236 
BETT+#1.000 

ENZ=AXST-T3 

BETTP=AN2/AD2 

GO TO 240 

BETTP:1.000 

BETT=1.000 


CALCULATE FORCES IN WEB FOR ELASTIC, 
AND STRAIN-HARDENING REGIONS 


©.25*HWtTWs(1.0D0-BETB) 
2.0D0t(AXST+ERCM) FE 
ADI=E#(1.000+BETB) 

>=A1*(A2-A3) 
©.25002HWrTW=(BETB-BETBP ) 
2,.000#(YSW+(AXST-T1)*E1) 
AD1*E1*(BETB+BETBP) 

FW2=A)2(A2-A3) 

©. 2S5DO=HWtTWEBETBP 

2.0D0= (YSW+(ESH-EYW) ¥E14+(AXST-73)=E2) 
AJ=AD1I*EZ*BETBP 

FW3=A1*(A2-A3) 

A1=0,25D0=HWtTW2BETTP 
A222,.0D0*(YSW+(ESH-EYW)#E1+(AXST-T3)FE2) 
AZS=AD2®E2*BETTP 

Fwazh1*#(A2-A3) 

h1=0, 25008HW? TW: (BETT-BETTP) 

A2=2. ODOFr(YSW+(AXST-T1)¥*E1) 
A3Z=AD22E1#(BETT+BETTP ) 

FW5=A12(A2-A3) 
A1=0.25D0*HW2TWt(1.O0D0-BETT) 
A2=Z.000#(AXST+ERCM)#E 
A3=AD22E*(1,.0D0+BETT) 

FW6=21*(42-A3) 
FWEFWI+tPW2+PW3+FWO+FWS+ PW 
PYSYSFB2BFI2TFI+YSFT2BF2=TF2+YSWHHWE TW 
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AXP = AXIAL LOAD 
AxKPY = AXIAL LOAD/YIELD toad 
AXSAW = AVERAGE AXIAL STRESS 


AXP=F1I+F2+FW 
AXPY=AXP/PY 
AXSAV=AXP/AREA 
RETURN 

END 
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SUBROUTINE STA4RT 
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THIS ROUTINE INITIALISES A STARTING 
VECTOR, SVEC, FOR USE IN MATRIX ITERATION FOR 
VARIOUS TYPES OF LOADS AND BOUNDARY COWDITIONS 


SUBROUTINE START(ABG,SVEC,SVAL) 
TMPL Det (REAL = & (a= HO 2)) 
DIMENSION ABG(15,15),SVEC(15),STAR(15) 


COMMON /BLKI/E,V,WNS,ITYPE,LTYPE,INEL,N,ICLAMP,IKIND 


BMAK=0.0D0 


INITIOLISE A STARTING VECTOR EQUAL TO 
MAIN DIAGONAL OF THE MATRIX ABS(1,J) 
yep ke) Fa) IS 
SVEC(1)=ABG(1,1) 
SIZE=SVEC(I 
JF (DABS(SI 
1F (DABS(SI 
BMAX=:DABS(S 
KS? 
CONTINUE 


) tie 1 OD@ 4:0) (SVEC Ts) sO 6.b10 
).LE.BMAX) GO TO 10 
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eS 72 
4373 
4974 
e975 
4376 
63977 
ag78 
4979 
4580 
ao81 
4982 
4363 
4964 
4565 
a96E 
4967 
ag68 
aseg 
4390 
4931 
4392 
4993 
63994 
4995 
4°36 
49397 
4gs6 
493s9 
5000 
500) 
5002 
5003 
5004 
5005 
SOO6 
5007 
$008 
soog 
5010 
5011 
5012 
$013 
5016 
5015 
5016 
5017 
$018 
501s 
5020 
$021 
5022 
$023 
5024 
5025 
5026 
so27 
5028 
$023 
5030 
5031 
5032 
$023 
5034 
5035 
5036 
$037 
5038 
5039 
5040 
5061 
$042 
5043 
5044 
soas 
SOLE 
5047 
S048 
5049 
5050 
5051 
$oS2 
5053 
5054 
5055 
SOS6 
5057 
5058 
5058 
5060 
5061 
SO62 
5062 
5064 
SOES 
SO66 
5067 
SO68 
5069 
SO70 
5071 
5072 
BiOris) 
5074 
so75 
SO76 
5077 
5078 
5079 
$080 
506) 
$082 
5083 
5084 


ic 
iS NORMALISE THE STARTING VECTOR. 
c 
SUE a OOS VE CIEKS:) 
DO 20 J#1,N 
20 SVEC(T ieSVEC (1 2S UZE 
NST=0 
c 
(=; 
c ITERATE 10 TIMES TO FIND & STARTING SHAPE AND A 
c STARTING EIGENVALUE. 
Cc 
30 SMAX=0.0D0 


DQ SO P54) ,\N 
SUM=0.0DO0 
00 40 Jr1,N 
40 SUM=SUM+ABG(1,J)*SVEC(J) 
STAR(1)=SUM 
1F (DABSS(SUM).LE.SMAK) GO TO SO 
Ket 
SMAX=DABS (SUM) 
50 CONTINUE 
SVAL=1,0DO0/STAR(K) 
DO 60 121,N 
6° SVEC(I1)=STAR(1)=®SVAL 
NSTINST4+1 
TReGN Site Co Onn G. Ole O70) 
sd TO 30 
70 RETURN 
END 
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SUBROUTINE 32 
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[is 

(e c 
E c 
(= 5 
c c 
Ss c 
= (= 
c SUBROUTINE WEINAS c 
c fod 
[= THIS SUBROUTINE FORMULATES THE STIFFNESS c 
c SUBMATRICES, WB1, WB2, WB3, WB4, AND WES FOR c 
G THE WEB OF A W-SHAPE SUBJECTED TO AXIAL PLUS (5 
c BENDING STRAINS. c 
c c 
CCC COCCEECCEECECCSERECOCCCE CCC OCCECECCECCECCECC CCE CCOGCeCOCc cE 

SUBROUTINE WBINAB(ST,EAPP) 

IMPLICIT REAL#8(A-H,0-2Z) 

BeMENS SiON aeleitent livia WoveVad nd ly Rolie. (teeta yia sm eleVatet ved edgy Ge ti cra) 

COMMON /BLKI1/E,V,NS,ITYPE,LTYPE, INEL,N,TCLAMP,IKIND 

COMMON /BLK4/FA,FE,FC,FO,FE 

COMMON /BLKS/ERTB,ERCM,ERTT,ERCB,ERCT,EYW,EYBF,EYTF 

COMMON /BLKE/ERTBAR,YB,Y1,AREA,ECC,ALAR,R 

COMMON /BLKS/CW(7,29),WB1(7,7),WB2(7,7),.W83(7,7),WB4(7,7) ,w8s(7,7) 

COMMON /BLK10O/HW,TW,BCL,BF1,7F1,8F2,TF2 

COMMON /BLK11/£1,E2,ESH,YSW, YSFB,YSFT,SRTB,SRCM,SRTT,SRCB,SROT 


INI TIALISE STIFFNESS SUBMATRICES TO ZERO 


aanna 


aw 


.oDdo 
.OdD0 
.ODo 

oDo 
.000 


CC eC en 
Sa ee ne) 


ee ne 
oo0o00o0- 


CALCULATE STRAINS AND STRAIN LIMITS. 


NnNann- 


STEAz=ST+EAPP 

STR=1.0DO0/STEA 

RSiTSRZST 

RSTEA=RST-EAPP 

TSAVE=TW 

TW=2.OD0*TWEHW/ (2 ODOFHW-TF1-TF2-2.0002TW) 
EC=(2.0D0tY1/(2.0D0=Y1-HW))#ST 
TI=ERCM+EC 

T2=EYW-ERTB 

TZ=ESH-ERTB 

TOZEYW+ERTT 

TS: ESH+ERTT 

Peet hE APP 

ADI=ERST+TI+ERTB 

AD2=ST-TI-ERTT 


oom wom 


SET LIMITS OF INTEGRATION FOR ELASTIC, YIELDED, 
AND STRAIN-HARDENED PORTIONS OF PLATE IN LOWER 
HALF OF WEB. 


annnann 


DE TGS EY Way (GiGi ON 20 
BET3:=0 0DO 
BETP3=0.0D0 
GO TO 60 

20 DE Ven Ghe Sik) GOR NOwso 
LE (WADI EO. O700'0)) 5G) 110) so 
BET3=(TE-EYW)/AD1 
BE TRS 0 oO Dc 
GO TO 690 

30 BET3=1.0D0 
BETP3=0.000 
GO TO 60 

40 IF (AD1.E90.60.0D0) GO TO 50 
BET3=(TE6-EYW)/AD1 
BETP3:(T6-ESH)/AD1 
GO TO 60 

so BET3:1.000 
BETP3:1.0D0 

60 ie (vtsodary cts et} (ste ape) 7/2) 
BET121,0D0 
BETP1=1,0D00 
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Go Fo 110 

IF (RSTEA,GT.7T3) GO To 90 
IF (AD1.E£0.0.0D0) GO To Bo 
BET1=(T6+EYW)/AD1 
BETP1=1.0D0 

Gor To aslo 

BET1:=1.0D0 

BETP1=1.0D0 

Go To 110 

1F (4£D1.E0.0.0D0) GO TO 100 
BET1:(T6+EYW)/AD1 
BETP1=(T6+ESH)/AD1 

CO TO 110 

BET1=1.0D0 

BETP1:=1.0D0 

CALL FWCALC(BCL,HW,TW,E2) 


INTEGRATION OVER LOWER HALF OF WEB 


CALCULATE COEFFICIENTS OF GEOMETRIC STIFFNESS 
SUBMATRICES 


FAC! 
FAC2 
FAC3 
FACS 
Facs 
FACE 
FACT 
FACE 


(YSW+(ESH-EYW)2E1-(ESH+TE)=E2)FESTR 
(RST+TI+ERTB)=E2EFE=STR 

(CYSW- (EYW+T6)=E1)=FEsSTR 
ADI*E1*FE2STR 

TESESFERSTR 

ADIFExFEeSTR 

(YSW+(TE-EYW)2#E1)2FE2STR 
(YSW+(ESH-EYW) =€1+(TE&-ESH)*E2)*FE*STR 


Per ere ee ee 


INTEGRATE STIFFNESS SUBMATRICES OVER 
STRAIN-HARDENED REGION OF THE WEB 


Az-1,0D0 
B=-BETP1 
IF (DABS(A-B).LT.1.00-5) GO TO 130 
CACM PHNCE Ay Eine Wrtio ela) 

CALL PHIYY(B,A,FIYY,CW,7,9,13) 
CALL PHIPHI(B,A,FIFI,CW,7,8,15) 
CALL PHIY(B,A,F 

CALL EPHI(B,4,€ 


TY GG WictieSinnt 5) 
EleCWwagi ods) 


Do W207 Les 

DO 120 Je1,7 

WBI(1,J)2FASFI(1I,4) 

WE2(1,JS)=FBSFIYY(1,J) 

WE3(1,J)2-FCFFIFI(1,J) 

WB4(1,J)2FO2FIY(1I,J) 

WBES(1,J)t-FACISFI(i,J)+FAC2*EFI (1,4) 

Az=-BETP1 

B:-BET1 

IF (DABS({A-B8).LT.1.0D-5) GO TO 150 

CARE EWGALG (BCE HW mW Ea) 

CARE VMS Ar OWS etit) 

CARRIES PIHITYaye IB Aun Balin eC Weet Signs 

CALL PHIPHI(B,A,FIFI,CW,7,29,158) 

CAME WPM TY CB yay ol Vig GWinti nS to) 

CACUPERR IN By Apert GWiadie Salsa) 

PIO HaOneleen 07, 

seh GW Ken Ih i 

WBEI(1,0)*WE1(1,J)+FAZFI(1,J5) 

WB2(1,J)8WE2(1,J)+FBtFIYY(1,J) 

WES( 1, J) eWes (i, J)-FosFIFI(T J) 

wBe(l,J)=wes(1,J)+FOrFIY(1,J) 

WBS(1,JS)=WBS(1,J)-FAC32F1I(1I,JS)+FACS2*EFI (1,4) 
INTEGRATE STIFFNESS SUBMATRICES OVER ELASTIC 
OF THE WEB 

A>-BET} 

B:-BET3 


VF (ORBSTA-B) LT. OD=—5)) Go To 70 
CALL FWCALC(BCL,HW,TW,E) 

CALE (Piel UBS Ay Ely CW 7 Son lia) 
GALL PITY Y (By Ai bl YN GW pores S 


rail 30 | 
EANC IPRITPHIICB A, Fle l CW. 7, 8 1S) 
CAE IPI TOV CBr Aba vane Wisntae on Hol) 
CAME SEP Hi iB vA de bale, OW tio tion) 
DO eon Te 1:7 
po Veo Veiy 7 
wBi(1,J)=WB1(1,J)+FAFFI(1,J) 
W5i2: (nye) i) WB cr keyyw) tb Beste YAY Nes) 
WBS de WE Si lend) —eCm rh Tira led yd) 
we4a(1,J)=wea(1,J)+FDOeFIY(1,4) 
WES (1, JVEWES(L, J) +PACSS FLT? U+PACesER IT (1, 3) 


INTEGRATE STIFFNESS SUBMATRICES OVER YIELDED 
OF THE WEB 


£:-BET3 

BeeBETPS 

1F (DABS(A-B).LT.1.0D-5) GO TO 190 
CALE BWCALCIUBCL SHW, TW, Eo) 

GAUL UPHT(B a Aa Piles GW liye enn) 

CAVE PHY (Bijan ery y, CWradig Son 1a) 


CARS PHP HIB Aa) e Died CW) S15) 

CARE PHY, (Ba Aimy, GW? asain 

CADU EPMIE Al eral, | CWry Se) 

DOs aS. Om emia 

DO 180 J#1,7 

WB1(1,J)=WBI1{(1,J)+FA=FI(I,J) 
we2(1I,J)sWwB2(1,J)+FB2FIYY(1,J) 
WB3(1,J3)2WE3(1,J)-FC2FIFI(1,J) 
WBG(1,J)2wB4(1,J)+FO=FIY(1,4) 
WB5(1,J):WES(I,J)+FAC7TEFI(1,4)+FACStEFI (1,4) 


INTEGRATE STIFFNESS SUBMATRICES OVER 
STRALIN-KARDENED REGION OF THE WEB 


REGION 


REGION 
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A=-BETP3 

B=0.000 

IF (DABS(O-B).LT.1,00-S) GO TO 210 
CALL FWCALC(BCL,HW,TW,E2) 

SAUL PMLES ASET CW, 7,940) 

CAPR Y-VatcBahslly kepic Wants rete 


CARY IRADPH TB Avie Leo, CW, 2.05) 

CALE SPAT Mey An. filly qcwWie toi oy) 

CALE VERT CE AER IpGw on 85, 1S) 

Dolo Om tentig 

BDO 200 J:1,7 

wWB1(1,J)2WB1(1,J)+¢FAfFI(1,J5) 
We2(1,J)=WB2(1,J)+FBeFIYY(1,) 
WE3(1,JS)=WB3(1,J)-FCeFIFI(?, J) 
WB4(1I,J)2wB4(1,J)+FDFFIY(1,4) 
WBS(1I,J)=WBS(1,J)+FACS8EFI(1,J)+FACZFEFI(1,¥U) 


SE LOU tse CF CNTEGRATION IF OR STOP (Hate IS WES FOR 
ELASTIC, YIELDED, AND STRAIN HARDENED REGIONS. 


CASE 1 = MIDSOLE EUCASTIC 


Re toeG tee ea Wie Gi On) 93.3.0 

Dl to Meme hee GO etOn 220: 
BET2=:1,0D0 

BETP2:=1.0D0 

GO TO 260 

lf CUSTEASET 25)! G0) TO 24:0 
IF (AD2.E0.0.000) GO TO 2306 
BET2:(EYW-T6)/AD2 
BETP2*1.0D0 

GO TO 260 

BET2=0.000 

BETP2=1.000 

GO TO 260 

IF (A02.E9.0.000) GO TO 250 
BETZ2©*(EYW-T6)/AD2 
BETP2=(ESH-TE)/AD2 

GO TO 260 

BET2=0.000 

BETP2=0.0D00 


CALCULATE FACTORS FOR MULTIPLYING GEOMETRIC 
STIFFNESS SUBMATRICES. 


CALL FWCALC(BCL,HW,TW,E) 

FACI:T6FE=FEZSTR 

FAC2=AD2"ErFESTR 
FAC3=(YSW+(TE-EYW)*E1)*FEFSTR 
FAC&=AD2=E12F ErSTR 

FACS: (YSW+(ESH-EYW)=£E1+(TE6-ESH)=E2)=sFEtSTR 
FACE=A02¥E2=FEZSTR 


wom 


INTEGRATE STJFFNESS SUBMATRICES OVER ELASTIC REGION 
OF THE WEB 


Azo oDO 

B=BET2 

IF {D0A8@S(A-8B Ci sil s@ise3) teilei atk Br-Ker 
CADLIPHNEBy Av FeligiGW i) te Sip suk) 
B 
{ 


CAML UP Hit y. BERN Ya eWatiy Sse) 


(8, 
CAME PR VPM iB AG elie GW 19s, ) 
CALL PHIY(8,A,FIY,CW,7,9,15) 
AWE BR RUB Avery Whitco dS.) 
PO e270 Tete7 
DO 27o Js 17 
We1(1,J39)2wWe1(1,J5S)+FA=FI(1, J) 
WB2(1,0)2WB2(1,J)+FB=FIYY(1,J) 
WB3(1I,J3)=WE3(1,J)-FC=FIFI(1,J9) 
WE4(1,J)=WBS(1,J)+FO=FIY(1,4) 
wWS5(1,9)2wBS(1,S)+FACTEFI( 1, J)+FAC2SEFI(1,J) 


INTEGRATE STIFFNESS SUBMATRICES OVER ELASTIC REGION 
OF THE WEB 


£:=BET2 

BrBETP2 

IF (DABS({A-B).LT.1.00-5) GO TO 300 
GALL FWOALEGCIIBICL HW) TW), 21 J 

CALE SP ieee Tw taney altri) 

GAC IP HY YiGB Al, Fil vy cieWh. tines) tsa 
GAEL PRTRAT (RA, Fer Cw, 7.9) 18) 
CAD SPHaYCB A Se weWr 77S) 350) 

CAE EPH (Bian Sea CW ae 1S) 18) 

BiOi 2: StOe = nla ay, 

BOmZSOms = eg 
WE1(1,J)tWB1(1,JS)+FAsFI(1,J) 

WBZ (Claro ewes either) trie ie Rove Mele oe) 
WB3(1,J)=W83(1,J)-FCeFIFI(1,J) 
wB4(1,J5)sWB4(1I,J)+FD2FIY(1,J) 
WBS(1],J)eWBS(1,J)+FAC3ZSFI(1,JS)+FAC4SEFI(1I,4) 


INTEGRATE STIFFNESS SUBMATRICES OVER 
STRSIN-HARDENED REGION OF THE WEE 


A=BETP2 
B:1,000 
Me fev o: (ritt Ny ay a) feet (eter Gets fea) 


CALE FWEAREIIBEL HW TW & 27) 

CAPM PH TBA hl eWia te geen 

CAL LEC RHO YiliBg Agih aoYavunie Ww gi tee Sela) 
GAUW EHNA Y Ay Elmo Wain Sy Sa) 
CALIPH YS AE TY. GW?) 9, 951) 
CALE SEPHD GB Ay ERY GW)? 91,0) 

fel EMey Wet 
DO 310 Js 


wei(I,J) (1,J)+Fh2F1(1,4) 
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WB2(1,J)2WB2(1,J)+FBEFIYY(1,4) 
WE3(1,J)2WB3(1,J)-FC*FIFI(1,J) 
WB4(1I,J)2wea(1,J)+FO2FIY(1,J4) 
wes(1,J)=WwBS(1,J)+FACS#F1I(1,J)+FACEEFI(1,35) 
TW: TSAVE 

RETURN 


SET LIMITS OF INTEGRATION FOR TOP HALF OF WEB FOR 
ELASTIC, YIELDED, AND STRAIN HARDENED REGIONS. 


CASED Ii) = MPODCE WY TEL DED 


TESS SH) iGO sO! °4)510 

LR US TeAG Th 147) Gon nol S50 
IF (£02.E90.0.000) GO TO 340 
BET2=(EYW-T6)/AD2 

BETP2= oDe 

CO TO 380 

BET2=1.0D0 

BETP2:1,0D0 

Go TO 350 

rE Se Aoi iS) (GO; Tie Seo 
BET2=1.6000 

BETP2:1.0D0 

GO TD 380 

IF (AD2.E9.0.000) GO TO 370 
BETP2=:(ESH-T6)/AD2 
BET2=:BETP2 

¢O TO 386 

BETP2=1.000 

BETZ2=:BETP2 


CALCULATE FACTORS FOR MULTIPLYING GEOMETRIC 
STIFFNESS SUBMATRICES 


CARE EWCALE LB Cl HW iW geal), 
FACi=(YSw+(TE-EYW)tE1)*FEsSTR 
FACZ=AD2=E1ZFEsSTR 

FAC3=:TExESFEZSTR 

FACG=AD2*# EZ FEESTR 

FACS: (YSW+(ESH-EYW)*E1+(TE6-ESH)*E2)2FE*STR 
FACG6=OAD2E22FEFSTR 


som 


INTEGRATE STIFFNESS SUBMATRICES CYER ELASTIC REGION 
OF TBE WEB 


Az0.0D0 
B=BET2 
IF (DABS(4-B).LT.1,.00-5) GO TO 400 
GAL PIA CB AUEE DEW 7) Sy tor) 

CAE PHY Bia pany Vy GWnntionn lice 
GALL PHIPHTI(8, A, FIFI, CW, 7,8, 15) 
CAPRI Ai dv Cw Sin tien) 

Cau EPH (Bsa Er) jGWu: 


DOME aSiouet=r1 07, 

bio; SSO Viel, 7: 

wWwer(1,J)=wBi(l1,JS)+FAFFI(1,J5) 

WE2(1,J)2WB2(J,J)+FB=FIYY(1,d) A 
WES (1,d)2WE3(I,J)-FCeFLEI(1, J) 

weda(1,J)=WB4(1,J)+FD=FIY(1,J4) 

WBS(1,J)2WBE(1,J)+FACIFFI( 1,5) +FACZFEFI (1,0) 


INTEGRATE STIFFNESS SUBMATRICES OYER ELASTIC REGION 
OF THE WEB 


A=BET2 

BrBETP2 

IF (DABS (A=8) JET. 1. OD-5)) Go TO’ 4206 
CALL FWCAL CIB CE HWy tiWr E) 

CALE PH INE AVE le CW? Sin tn), 

ANE OPH VAY By VA Riley ae Wita Otis) 
CAEL VPARP CB VAynk XE I), CW 7.08), 15)) 
CAI RAYS) Anil yy GW, Sit So) 


EAE JERHIIUB WA) EES CW 9), 180) 

foo) Calor YC) fy 2 

BD) 41/0: seit, 7 

WBI(1,J)FWBI(1,J)+FAFFI(I,4) 
WB2(1I,J)2WB2(I,J)+FBsFIYY(1,J) 

WE SiGe pose W Sion eu) iG ea Eat (eae) 
WB4(1,J)2wB4(J,J)+FD2FIY(1,4) 
WBS(1,J)=WBS(1,J)+FAC3FFI ( J)+FACGtEFI(1,0) 


INTEGRATE STIFFNESS SUBMATRICES OVER 
STRAIN-HARDENED REGION OF THE WEE 


B=BETP2 

B=1.0D0 

IF (DABS(4-8).LT.1.0D-5) GO TO 440 
CALL FWCALC(BCL,HW, TW,E2) 

GASP HUE AN, mele Womi persian) 

CALE TPMT YY WBi vay Ral vere Wri gets 
CALL PIR PHT CB) A Jer LGW ge 9) 0S) 
CACCS PHT Via rane oy aCwni Saion) 

CALL ERHID (8), A, fF li, CWrw 97 8) 


DOr 4:3'0) Tet? 

00 4360 Sele 

WB1(1,J)=WB1(1,J)+FAFFI(1,J) 
WB2(1,J9)*WB2(1,J)+FB*FIYY(1,0) 

Wes(1,J)=WES(I) J) -Fes FIFI 1, J) 
WB4(1,J5)=WB4(1,JS)*FODFIY(1,J) 
wes(1I,J)=WBS(1,J)+FACS7FI(1,J)+FOCE*EFI(I,4) 
TWrTSAVE 

RETURN 


SET LIMITS OF INTEGRATION FOR TOP HALF OF WEB FOR 
ELASTIC, YIELDED, AND STRAIN HARDENED RECIONS 
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is CASE I] - MIDDLE STRAIN-HARDENED 
e 
aso TEL USTEAG Guat 4) GO) tn 67:0 
IF (AD2.E0.0.000) GO TO 460 
BET2:=(EYW-T6)/AD2 
BETP2=(ESH-T6)/AD2 
CO TO 490 
460 BET2=1.0D0 
BETP2+1.0D0 
GO TO 480 
470 IF (STEA.GT.TS) GO TO 480 
IF (AD2.E0.0.0D0) GO TO 480 
BET2=1.000 
BETP2=(ESH-1T6)/AD2 
GO TO 4g0 
480 BET2=1.0D0 
BETP2=1.0D0 
c 
c 
c CALCUL4STE FACTORS FOR MULTIPLYING GEOMETRIC 
c STIFFNESS SUBMATRICES. 
E 
430 CALL FWCALC(BCL,HW, TW,E2) 
FOC1:(YSW+(ESH-EYW) ®E1+(T6-ESH)=E2)=2FE#STR 
FAC2=AD2*E2*FE#STR 
FAC3=(YSwW+(TE-EYW)®E1)sFE*2STR 
FACG=AD22E1SFESSTR 
FACS: T6FEsFEESTR 
FACG=AD2*ESFE*XSTR 
c 
c 
(e INTEGRATE STIFFNESS SUBMATRICES OVER 
Cc STRAIN-HARDENED REGION OF THE WEB. 
c 
A=0.0D0 
B=BETP2 
UF UDABS CAB) ot OD 5) GOs TO S110 
CALL PRE UB Aha GW mS nal ee) 
CAC PEE NEY Bop AC eal WN ne W jut@ig. Wc) 
CACC PML PH Bia Fol hole cGW ete er iio) 
CALE PHIYCE AY, Fel YoniGWa) 7595 )) 
GALCER MTCE VALE io, GW ogni eo 
DO 500 121,7 
pO Soo J:I1,7 
wei(I,J)swet(l,J)+FAsFI(1, J) 
WB2(1,JS)=WB2(1,JS)+FBsFIVYY(I,J) 
WB3({1,J)eWB3(1,J)-FO!rFIFI(1,J) 
WBS(1,J)=WBS(1,J3)+FD*FIY(1, 09) 
500 WBS(1,J)=WBS(1I,J)+FACI#2FI(1,J3)+FAC22EFI(1,4) 
[= 
c 
c INTEGRATE STIFFNESS SUBMATRICES OVER ELASTIC REGION 
c OF THE WEB 
le 
510 A=BETP2 
B=BET2 
LF (DABSTA-B) UT. 1. 0D=S)) Go TO Sse 
COLL FWCALC(BCL,HW,TW,E1) 
BADE PRB Alpimil me Waatin Sie lure) 
AiG I MMcyeyi(( Bin Ay FalLyi Vente tuoi ast: 
CALL PH IPH (BD Ay Elie La GWint. Ss, 15) 
CALC IPHEY (BA, mY WCW at 91) t's)) 
CALL EPH1(B,A,EFI,CW,7,9,18) 
OO 520° fe, 7 
DO) S20) Yisil | 7 
WB VT 7d) Swe alll jd) Shas TT J) 
WE2(1,Jd)sWB2(3,J)+FB2FIYY (2,4) 
WEai td EWR Ty Siar Cri Rel rue} 
WB4(1,J)=WB4(1,J)+FDFFIY(1,J9) 
520 WBS(1,J)=WBS(1,J)+FAC3FFI(1,J)+FACS*EFI(I,4) 
Cc 
c 
c INTEGRATE STIFFNESS SUBMATRICES OVER ELASTIC REGION 
€ OF THE WEB. 
c 
530 Az:BET2 
B:1.0D0 
IF (DABS(A-B).LT.1.0D-5) GO TO 550 
CALL FWCALC(BEL, HW, TW,E) 
iA ee el UB ep Aig bablagy OW end ny Supe ti) 
GAM Dee HoLVAVSB Ay prakiox GWie a ination) 
CADE SP RPI EGBA ge bitin Wot Syn ou) 
CAE IP MBICY (CB Are LY Wig tie io) 
CAME REP H T (By Ay ER) j.CWaity 2 une.) 
DO Sao P24, 7, 
00 S40 J:I1,7 
WBI(1,J)2WBI(1, J)+FAFFI(1,J) 
WE2(T JVEwe2( 1, 0) FP R=P IY Y(t , 0!) 
Wisi oie WE si(  wileetm Gat aloe Lael ids) 
WB4(1,J)=wee(],J)+FD2FIY(1,J4) 
5a0 WBS(J,J)=wBS(1,J)+FACS#FI(1,J)+FACStEFI(],J) 
550 TWHTSAVE 
RETURN 
END 


CS CCCCCCCECCEE CEC CCCCE CE CC CEC OCC CEE COCC CCC OCC CE CCC CEC ee CCECCCEe 


c 
c 
iS 
c 
i 
c 
c 
c 
c 
= 
c 
c 
c 


SUBROUTINE 33 
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THIS ROUTINE FORMULATES STIFFNESS 
SUBMATRICES FOR THE WEB WHEN THE SPECIMEN 15S 


c 
c 
c 
c 
c 
SUBROUTINE WBINAX c 
c 
c 
c 
SUBJECTED TO AXIAL STRESSES c 

c 

c 


cccccccececcccccccccceccccececcccccecccecccececcececceceecccece 


SUBROUTINE WBINAX(ST) 

IMPLICIT REAL*8(A-H,0-2) 

DUMENS TONG Flic yor ligitel Vaal im mexerosaitu pig jenlerl Yat iumimd peeled peat) 
COMMON /BLK1/E,V,NS,ITYPE,LTYPE,INEL,N,ICLAMP,IKIND 
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COMMON /BLK4/FA,FB,FC,FO,FE 

COMMON /BLKS/ERTE,ERCM,ERTT,ERCB,ERCT,EYW,EYBF ,EYTF 

COMMON /BLKS9/CW(7,S) ,WB1(7,7),WE2(7,7),WB3(7,7),WB4(7,7),We5(7,7) 
COMMON /BLK10/HW,TW,BCL,BF1,TF1,8F2,TF2 

COMMON /BLK11/E1,E2,ESH,YSW,YSFB,YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 


INITIALISE STIFFNESS SUBMATRICES TO ZERO 


[ote key SHR yy 

pO 16 Jet, 7 

wei(I,J)=0.0D0 
WB2(1,J3)=0.0D0 
WwE3(1,4)20.000 
WBS(I,J)=0.0D0 
wBS(1,J)=0,0D0 


CALCULATE STRAINS AND STRAIN LIMITS 


STRt1,OD0/ST 
TSAVE=TW 

TWt2. ODO TWHtHW/(2.0D0*HW-TF1-TF2-2.0008TW) 
TIZ=EYW-ERCM 
TZ=EYW+ERTSB 
Tasker eRCM 
TS4=ESH+ERTB 
TS=EYW+ERTT 
TE=ESH+ERTT 
ADI=ERTB+ERCM 
AD2=ERTT+ERCM 


one 


SET OIMITS) OF SINnEGRAT LON FOR ECASTTPICy YEE DED) AND 
STRAIN-RHARDENED PORTIONS OF PLATE IN LOWER HALF OF 
WEB. 


LE US ataGiteats)) GO TOni2.O 
BETB:0,0D00 

BETBP:=0.0D0 

co TO 70 

Vite Sitar Gite 2.) (S00 4.0 
VE VAD E'O7,.0;. ODO!) (G0) 110) 30 
DAN1=ST-T1 

BETB=AN1/AD}1 
BETBP=0.0D0 

GO TO 70 

BETB=1.0D0 

BETBP=®0.0DO 

GO TO 70 

Des US Ginnma)) GOM mon S:0 
BETB=1.000 

BETBP=0.0D0 

co TO 70 

IF {ST.GT.T4) Go To 6o 
IF [{AD1.E0©.0.000) GO To 60 
ANI=ST-T3 

BETB=1.000 
BETBP=4N1/AD1 

GO TO 70 

BETB?:1,0D00 

BETBP=1.0D0 

iS {CShenisis oorih)) (Se)! aby 136) 
BETT=0.0D0 

BETTP=0.0D0 

GO TO 130 

ES Sie Cine Sie GIO On O.0) 
If (AD2Z.&O. 6. ODO) G0 TO g0 
AN2=ST-T1 

BETT=AN2/AD2 
BETTP=0.0D0 

GO TO 130 

BETT=1.0D0 

BETTP=0.0D0 

Go TO 30 

UES US ieaGieans GOs Om mn ©: 
BET teat ODIO 

BETTP=0.0D0 

GO TO 130 

bE CCSite.Gidueun 6) Gon On 1210 
TF (ADS. EO.0 Ope) Ga Wa 120 
BETT=1.0D0 

AN2:ST-T3 

BETTP=AN2/AD2 

GO TO 130 

BETTP:1.0D0 

BETT=1,0D0 

CALL FWCALCIBECL, HW, TW,E) 


CALCULATE FACTORS FOR MULTIPLYING GEOMETRIC 
STIFFNESS SUBMATRICES 


Fact 
FAC2 
FAC3 
FACS 


(ST+ERCM) #EFFE 

ADI=EtFE 

(YSW+(ST-T1)#E1)#FE 

ADI*EVSFE 

FACS: (YSW+(ESH-EVW)*E1+(ST-T3)*E2)*FE 
FACB=ADI#E2*FE 

FACT=AD25E22FE 

FACSEAD2*EI*FE 

FACS=:AD2=2E#FE 


woo mw me 


INTEGRATE STIFFNESS SUBMATRICES OVER ELASTIC REGION 
OF THE WEB 
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CALE PaO IB Age liye ie olor) 
CALE Pip By cre tele Wanita) oe yiee) 
BO Oe 17, 
00 140 J=1,7 


WEI(1] J) SFASFI(1, J) 
WE2(1,J)sFB=FIYY(1,J) 
Wisi itty ee) trevRiG em lial (elrelt) 
WB4(1,JS)tFDeFIY(1,J 
WeS(1,J)sFACIFEFI ( 


eo) 
LAW PEAS SE RT (sh) 


INTEGRATE STIFFNESS SUBMATRICES OVER YIELDED RECION 


OF THE WEB 


A:-BETB 

B:=-BETBP 

IF (DABS(A-B).LT.1.0D-5) GO TO 170 
CALL FWCALC(8CL,HW, TW,E1) 

CAC PAIS A ie GW hy ee er) 

SAP HilevevalCSnrAUealiyY nC Whe Tm Suan Ss.) 
CALL PHIPHI(®@,4,FIF1,CW,7,9,18) 
CALL PHIY(B,A “FLY, Ws 7,81, 48)) 

CALL EPHI(B Al EF1.CW.7.8.18) 

DO TES Lene 

Do “TEo" Jie! /7 

WBI(T, JEeWBI1(1,0)+FASFI (1, J) 
WE2(1,J3)=WB2(1,J)+FBSFIYY(1,J) 
WB3(1,J)sWB3(1,J)-FEO*FIFI(I,4) 
WBS(1,J)=WB4(1,JS)+FDFFIY(1,J4) 
WBS(1,J)=WBS(1,J)+FACSEFI(1,JS)*FAC4tEFI(I, 


NTEGRATE STIFFNESS SUBMATRICES OVER 


STRAIN-HKARDENED REGION OF THE WEB. 


A=-BETBP 
B=0 .0oDO0 


IF (DABS(A-6).LT.1.0D0-8) GO TO 180 


CALL FWCALC(BCL,HW,TW,E2) 
CAC PH (iSe iA lew yuri Sater.) 


CAE SeHEY VatiBu ay eeduy Wir iG Wyant p) Sirat ssi) 


13 


1 


)+FACESEFI(I, 


) 
s) 


CALL PRTPHI(B A, FIFI, CW, 7,9 , 
CAINE PHI Bo AGE lin Wor dines tation) 
CAE EPRHT (8), Ay EFT, CW07, 9), 180 
00 180 121,7 

DO 180 Jel,7 
WBE1(1T,J)2WB1(I,J)+FA=FI(1,J) 
WB2(1,J)=WE2(1,J5)+FBSFIYY(1, 
WB3(1,J3)=we3(1,J5)-FC*#FIFI(1, 
we4a(1I,J)=WBO(1,J)*FDEFIV(1,J 
WES(1,4)2wes5(1,J)+FACSeFI(I, 
b=9.0D00 

B=BETTP 

TF DABS UA-8) £1 -1.0D=5)}) Gio) To’ 210 
CAC EH Se Ar eelanG Witla alir) 
CAUE PHD UBD Ae YN pGW, 7,19), 
SECIS {EBON A IN ale Maat eis Tn Ch 
APH ie ve(UBe Al Rely a G Wind cS i tS)) 
GALL EPHI(6,A, EFI, CW, 7,9, 18) 
DOM ZOOF Teh, 7 

BO) ZOO ei, 7. 
WB1(1,J)weIl(I,J)+FAtFI(1,J) 
WB2(1,J)SWB2(1,J)+FBeF1YY(1, 
WES(1,J)2WE3(1,J)-FC=FIFI(1, 
WB4(1,J)=WB4S(1I,J)+FDFFIY(1,J 
WBS(iI,J)twBS(1,J)+FACSFFI(1, 


)-FACTZEFI(1 


J) 


J) 


J) 


INTEGRATE STIFFNESS SUBMATRICES SCVER YIELDED REGION 


OF ie WEB. 


A:BETTP 
B=BETT 
Die DABS AB btn O ea S 


) 
CALL FWCALC(BCL,HKW,TW,E1) 
CAME PIB AM Eli GWLN tiie enitia) 
CALL PHIYY(B. PON SU INEN cw. UP les het) 
CALL PHIPHI(E,A4, FIFI, CW hie palo) 
CADP HAIG Be A Et VeGWs tS) 16S) 
CALL EPHT (6A, EFT, CW, 7,8. 89) 
DOP 2208 Siena 
Dion ez 2ON Diemer 
WBE1(1,J)ewB1(1,J)+FAFFI(1,J5) 
wB2(I,J)2we2(1,J)+FeE*FIYY(I,J) 
WE sil I ieWes( ly Jr Cer TF Tet yn) 
WBA(T,J)=WwB4(1,4)+FDFFIY(1,9) 
WBS(1,J)=WBS(1,J)+FAC3tFI(1,J)-FACSFEFI(I, J) 


INTEGRATE STIFFNESS SUBMASTRICES OVER ELASTIC 


OF THE WEB 


A=BETT 
B=1.0D0 


IF (DABS(A-B).LT.1.00-5) GO TO 250 


CALL FWCALC(BCL,HW,TW,E) 
CALE OPHIR, ALF, CW 7, 8, 279 
CALE PAEY VIE, Bae lYy . CW yt 8 ot 


GALE Hil Pipi By cA ecli mel G iW ray Soy 
CALE PRT YICB A, DY. CW!,7,9), 1159) 
CALL EP HINGE AER pew ran clei) 
DO 260 1:1,7 

DO 240 J:1,7 
WB1I(1,J)=WB1(1,J)+FAFFI(1,J) 
WE2 TUE WB 2 ly) Ber Tey Yo tu, 
wWB3(1,J)2WB3(1,J)-FCSFIFI(1, 
wWB4(1,J)=WB4(1,0)+FDtFIY(I,J 
WBS(1],J)SWBS(1,J)#FACIFFI(1, 
TWrTSAVE 

RETURN 

ENO 
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S763 c c 
S764 c SUBROUTINE 34 |= 
S765 c c 
S766 ec Is 
S767 CECCSCeCCeCCCecCleCeCeGGCChoeceGeGGGEeleCeCeOGGeeCOCCGORe CGCCE CE 
S765 fu; c 
S769 c SUBROUTINE WBINBE cS 
5770 c ie 
5771 Cc THIS ROUTINE FORMULATES THE STIFFNESS c 
Sie: (e SUBMATRICES WB1, WBZ, WES, WB4 AND WBS FOR THE e 
S773 [S WEB IN THE INELASTIC AND STRAIN-HARDENING R&NGES C 
S774 Cc WHEN THE SPECIMEN IS SUBJECTED TO BENDING c 
S775 [= STRESSES c 
S776 iS c 
Sv ligiae Scecceccccegeccecececeeencececececececeeceeecceececccceecece 
$778 SUBROUTINE WBINBE(ST) 

$779 IMPLICIT REALS8(A-H, 0-2) 

5780 DAMEN SON literate ieikeli Nev Gal pata iGels bol ed gate) i ily humic Sige Gale ody nae) 
$781 COMMON /BLK1/E,V,NS,ITYPE,LTYPE,INEL,N, JCLAMP, IKIND 
S782 COMMON /BLK4/FA,FE,FC,FD,FE 

§783 COMMON /BLKS/ERTB,ERCM,ERTT,ERCB,ERCT,EYW,EYBF ,EYTF 
5784 COMMON /BLKE/ERTBAR,YB,Y1,4REA,ECC,ALAR,R 

s785 COMMON /BLKS/CW(7,3) ,WB1(7,7),WB2(7,7),WB3(7,7),WB4(7,7) ,WB5(7,7) 
5786 COMMON /BLK1O/HW,TW,BCL,BF1,TF1,BF2,TF2 

S787 COMMON /BLK11/E1,E2,ESH,YSW,YSFBE,YSFT,SRTB,SRCM,SRTT,SRCB,SRCT 
s786 (5 

5789 c 

$790 c INITIALISE STIFFNESS SUBMATRICES TO ZERO 

$791 [S 

S782 DIO 1S) Tea: 

$7.33 feels Stes CLEA 5 

5794 WB1(1,J)#0.0D0 

5755 WB2(1,4)=0.0D0 

S796 WB3(!1,J4)=0.000 

S787 weé(1,3)=0.000 

S788 10 wes(i,J)#0.0D0 

s7s9 c 

5800 c 

5801 & CALCULATE STRAINS AND STRAIN LIMITS. 

S802 c 

5803 STR=1.0D0/ST 

5804 RST=RST 

5805 TSAVE:TW 

5806 TWz2,.O0D0tTWHHW/(2,.O0D0fHW-TFI-TF2-2.000FTW) 

5807 EC:(2,0007Y1/(2.0008Y1-KW))*ST 

5808 TISERCM+EC 

5809 T2=EYW-ERTB 

s@10 T3=ESH-ERTB 

$811 TASEYW+ERTT 

5812 TSZESH+ERTT 

5813 ADJ=RST+TI+ERTB 

5816 AD2=ST-T1-ERTT 

5815 c 

5816 c 

5817 (= SET LIMITS OF INTEGRATION FOR ELASTIC, YIELDED, AND 
S618 Cc STRAIN-HARDENED PORTIONS OF PLATE IN LOWER HALF OF 
serg [Ss WEB. 

$820 c 

5221 We (iri ate slave) tS) Wel eC) 

5822 BET3=0.0D0 

58€23 BETP3:=0.000 

S824 GO TO 60 

5825 20 IF (iMG TES HH) Geet 4c 

5826 IF (AD1.£0.0.000) GO To 30 

5827 BET3=(T1-EYW)/AD1 

5828 BETP3=0.0D0 

$623 GO TO 60 

5830 30 BET3: ope 

5831 BETP3=0.0D0 

5832 G0 TO 60 

5833 40 IF (A01.E0.0.0D0) GO TO. 50 

5aza4 BET3=:(T1-EYwW)/AD) 

5835 BETP3:(T1-ESH)/AD1 

5836 GO TO 60 

5837 ie) BET3=1.0D0 

5638 BETP2:=1.0D0 

$839 60 Wie (eestor sages) (Sel ailel Pe) 

5840 BET1=1,.000 

584) BETP1:1.0D0 

S842 level eagtely ah ake) 

5843 70 IF URStT.GT. hs) GO To 9/0 

saac 1F (AD1.E0.0.000) GO TO 86 

sB845 BETI=(T1I+EYW)/AD1 

S846 BETP1#£1.0D0 

5847 GO TO 110 

S848 80 BET: 

seas BETP1=1.0D0 

5850 GO TO 110 

5851 go IF (AD1,£0.0,.0D0) GO TO 100 

5852 BET1=(T1+EYW)/AD1 

5853 BETP1:=(T1+ESH)/AD} 

5854 GO TO 110 

ses5 100 BET1=1.0D0 

5es6é BETP!=1.0D0 

5857 110 CALL FWCALC(BCL,HW, TW,E2) 

sese c 

sesso c 

5860 (e INTEGRATION OVER LOWER HALF OF WEB 

5861 c 

5862 (5 CALCULATE FACTORS FOR MULTIPLYING GEOMETRIC 

$863 [= STIFFNESS SUBMATRICES. 

5864 tr 

5865 FAC1=(YSW+(ESH-EYW)2#E1-(ESH+T1)*E2)2FE 

S866 FACZ=:(RST+TI+ERTB)FE2ZEFE 

S867 FAC3=(YSW-(EYW+T1)#£1)#FE 

sees FACS=ADIZEIRFE 

$669 FACStTizEzFE 

5870 FACE6=ADIFE*FE 

$871 FACT: (YSW+(T1-EYW)#E1)2FE 

$872 FAC&8:(YSWt(ESH-EYW)2E14(1T1-ESH)#E2)2FE 

5873 =-1,.0D0 

5874 B:-BETP1 


S875 TF (DABS(A-B).LT.1.00-S) GO TO 136 
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S876 
S877 
S875 
$&79 
5880 
$eé) 
$882 
S8&s3 
Sea 
sees 
S&86 
S887 
seee 
$889 
5890 
sas? 
S&é92 
5892 
séeseé 
segs 
Sage 
ses7 
sése 
56938 
5300 
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$302 
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5904 
$905 
SSOE 
$907 
$308 
sos 
5310 
$911 
S812 
Sits 
5314 
5915 
S916 
5917 
5918 
5919 
$S$20 
§$21 
S822 
Siaacs 
§9264 
5825 
S$26 
$327 
539328 
$329 
$330 
Sra 
5932 
§$33 
$934 
§39335 
5936 
§337 
5938 
ss3s 
5340 
5961 
$942 
$943 
5946 
5945 
5946 
Bi SIAGT, 
5948 
5948 
5950 
sas1 
Sg 
5953 
so54 
593S5 
5S9S5E 
s9os7 
sss8s 
S358 
5360 
s$61 
5962 
5963 
5364 
5965 
5966 
S967 
s968 
596° 
$970 
ss71 
Sisivice 
BS 72 
oe 
5975 
SS76 
Sica) 
5978 
5879 
5980 
598) 
s2é2 
$8683 
$984 
sses 
S986 
ss&7 
5386 
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CACEREH DUB TA, hl CW Sin 

CAUCE RPE YUBA mw vie Weta Sin fia) 
GA EPRI P I l((B) Al Fike Dey yt 15) 
CAVE SE RUV(IB pA E LY , CW tS), 
CAL EMER RAUB Al me hekyy CW di. Si 
BOT 1207 F277 

BO 1207381 7 


WEI1(I,JS)2FASFI(1,d) 
WB2(1,J)=FBFFIYY(1,J) 
WES(1, J) s-FC#FIFI( 1, J) 
WB&(1,J)fFDEFIY{(T, J) 
WBS(1,d0)2-FACI=FI(1,J)+FAC2*EFI(1,J) 


INTEGRATE STIFFNESS SUBMATRICES OVER 
STRAIN-HARDENED REGION OF THE WEB 


s*BETPI 
B=-BET! 
TE CDABSICA-B Ltt 20D 5) GO) 10 150 
CALL FWCALC(BCL,HW,TW,E1) 
BEALE (PHI (EAL ,.eWw 7.8) 
GABE SPH EYE Amieoley Yi nGWiydia aint?) 


CALL PHIPHI(B,A,FIFI,CW,7,8,18) 

CALIPH (8, B uray SW, 1,8 eo 

CAL EP ail tiean ay feo, GW hr ai teow 

DO 1460 121 ,7 

ogee SW tere al i 

WB1(1,J)=WB1(1,J5)+FAFFI(1,J) 
WB2(1,J)=WB2(1,JS)+FB=FIVYY(1,J5) 
WE3(1,J)*WB3(1I,J)-FC*sFIFI(1,J) 
WBO(1,J5)=WB4(1,J)+FO2FIY(1,J) 
wWwS5(1,J)=WBS(1,J)-FAC3tFI(1,J)+FACOeEFI(1,J3) 


INTEGRATE STIFFNESS SUBMATRICES OVER ELASTIC REGION 
CF THE WEB. 


b=-BETI 

B=-BET3 

IF (DABS(A-B).LT.1.0D-5) GO TO 170 
CALL FWCALC(BCL,HW,TW,E) 

CALE SRB (IB Ay ralijnewundacs alia) 

CALL PHIVY(B,A,FIVY,CW.7,8, 173) 
CALE PRUEHTHE, A, FIEL CW. 7, S05) 
ENE TAC N AEE I PRONE Te ore al ay 


CALE EPHTNCB A, fF it, CWa7 Sa ts) 

DO 160 121,7 

DO 160 J:1,7 

WB1(1,J)=WBI(1,JS)*FAFFI(1,J) 
wWw82(1,J)=WB2(1,J)+¢FB=SFIYY(1,¥) 
w83(1,43)=we3(1,J)-FC#FIFI(1,J) 
WB4(I,J)=wes(l,J)+FDFFIY(1,4) 
wes(1,J)=weS(1,J)+FACStFI(1,J)+FACEFEFI(I, J) 


INTEGRATE STIFFNESS SUBMATRICES OVER YIELDED REGION 
OF THE WEB. 


Ar-BET3 

Bre-BETP2 

IF (DABS(A-6).LT.1.0D-5) GO TO 190 
CALL EWEAL COREL SHWoanwWa Ga) 

CAGE EN TUBy Ale CW ai Sitca), 


CAE CM Yeviliay, Ar coke yiGW enti gesi iia) 


CAL IPHVPHD (ie Ah Le A CWyttr, Sy 1S) 

CAPES HIT Y CB er Ancm lave, Witir 94. tho): 

CALL EPHI (8, A, EF. , GW, 7,3 18) 

Mey GACY FOCI SG! 

BO) 80 eis 1) 7 

WBI(1],J)=WBI(I,J)+FAtFI(I, 5) 
WB2(1,45)=WB2(1,J)+FBeFIYY(1,2) 

WES (1 pov sWes (1, J) -FCaPLeED (i 7 2!) 
WB4(1,J)#WBS(1,J)+FO=FIY(1,J) 
WES(1,J)=wes(I,J)+FAC7TZFI(1,J)+FACStEFI(1,J5) 


INTEGRATE STIFFNESS SUBMATRICES OVER 
STRAIN-HARDENED REGION OF THE WEB 


=-BETP3 
B=0.0D0 
IF (DABS(A-B).LT.1.0D0-5) GO TO 210 
CALL FWCALC(BCL,HW, TW,E2) 
GAUL SPH ITB A, El CW, 78). ior) 
CARP Hel VAVA(B yc Ag Rad Yovieg GW plage S ue thet) 


CAS PHM (By Asin lel CW yay 91) So) 

CAME MP HIVE vAs EaLYig GW.ne7 eats) 

CALE PIN (0B Are Rule mews iiyeSii sie.) 

Diez Oo Onmirtiea 

BO ZOO Je1,7 

wei(1,J)wBi(1,J)+FAtFI(T,J) 
WB2(1],J3)8WB2(1,J)+FB=FIYY(1,J) 

WES(T, J)ewes(l J) -Fe=srrr1 (7, J) 
WB4(1,J)=WB4(1,J)+FD=FIY(1,/4) 
WBS5(1,J)=WBS(1,J)+FAC8tFI(1,J)+FAC22EFI(1,J4) 


SET LIMITS OF INTEGRATION FOR TOP HALF OF WEE FOR 
ELASTIC, YIELDED, AND STRAIN HARDENED REGIONS 


CASE I = MIDDLE ELASTIC 


TF (T1.GTSEYW) GO TO 330 

Te UST 2G s)) Gb 70) 220 
BET2=1.0D0 

BETP2=1.0D0 

GO TO 260 

TP) (CSG at: 5) oho We Vea 

IF (402.E0.0.000) GO TO 230 
BET2=(EYW-T1)/A02 
BETP2=1.0D0 

GO TO 2606 
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CALCULATE F&CTORS FOR MULTIPLYING GEOMETRIC 
STIFFNESS SUBMATRICES 


CALL FWCALC(BCL,HW, TW,E1) 
FACI=(YSW+(TI-EYW)sE1)=FEFSTR 
FAC2=AD2Z2SE IS FESSTR 

FACS TIP EsFEssS TF 

FAC4G=AOZSEsFEFSTR 

FACS: {(YSW+(ESH-EYW)*E1+(T1-ESH)*E2)*FEESTR 
FACE=AD2>=E22FE=STR 


INTEGRATE STIFFNESS SUBMEATRICES OVER ELASTIC REGION 


OF THE WEB 


A=0o.0D0 

B=BET2 

IF (DABS(A-B).LT.1.0D-S} GO TO 400 
CA PHSB Ae le Wit vasn9: pt te) 


AN Pin Yaye OB An eal View eae cD 
SARL PRUE HUBS A EE lepeWod jo) 150). 
Cia SAV (Bo Arie ivan Wil sii, Sigtio.) 
CALE PERPHUS TA, Eri pCW, 7,95 1180) 

po 390 11,7 

00 380 J=1,7 
WB1(1,J)=WBI(1,J)+FaAsFI(1,5) 
WEZ(I,J)=WE2(1,J)+FBSFIYY(1,4) 
WB3(1,J)sWE3(1,JS)-FCSsFIFI(I,J) 
WB4(1,J)=WB4(1,9)+FD=FIY(1,J) 
WES(1,J)=WBS(1,J)+FACIFFI(1,U)+FAC2ZFEFI(1, 4) 


INTEGRATE STIFFNESS SUBMATRICES OVER ELASTIC REGION 


OF THE WEB 


A=BET2 

Bz=BETP2 

1F fOABS (AEB) DET 1 OD-5)5 GO) TiO) 4:26 
CALL FWCALC(BCL, HW, TW,E) 

CA EPA Ge Ane lanic Weatiy istry 


CACY VERY VAR AG Fay Ye, GW, 7 9) e sis) 
COLL PHIPHI(EB,45,FIFI,CW,7,8,15) 
COUCRP Hi Y (Gy Airy. CW yOu ti) 
EACUMERH UCB WA bianca Semler) 

DO" 4:10 Si =51/ 47; 

DO 4160 Jzr,7 
WB1(1,J)2we1(1,JjS)+FAFFI(1, J) 
WB2(1,J)=WB2(1,J5)+FB*FIYY(1,J) 
WE3(1I,J)=we3(1,J)-FC#FIFI(1,J) 
WE4(1,45)=2we4(1,J5)+FDFFIY{1,J) 
WBES(1,J)ewBS(1,J)+FAC3=FI(I,J)+FAceeEFI(I,J) 


INTEGRATE STIFFNESS SUBMATRICES OVER 
STRAIN-HARDENED REGION OF THE WEB 


TP2 

.OdD0 

DABS(A-B).LT,.1.00°5) GO TO 440 
CALL FWCALC(BCL,HW,TW,E2) 

CA Re TB PAGE bay Wades yadleted) 

GAIDE SP HILYANAN Bh Ackles CW retin oats 
CALE PHUPHI(B A, Fle I, CW, 709,15) 
CAL PAF TAYE (BAe Ey ghee tite Seed oo) 


CRI REP IOWBmTAl TE CileGW ur soln 1 Su) 

DO 430 J51,7 

pO B30 Je), 7. 

WET, J ewet (1, JU) +RAz FT CT, J) 
WB2(1,J)2WB2(1,J5)4+FB2FIYY(1,J) 

WBE aiteig rs .)= Wea lard) oC sir lial (olisua)) 
WEG(1,J)=WB4(1,J)+FOFFIY(1,J) 
WBS(1,J)=WBS(1,J)+FACS#FI(1,J)+FACESFEFI(I,J) 
TW:TSAVE 

RETURN 


SET LIMITS GF INTEGRATION FOR TOP HALF OF WEB FOR 
ELASTIC, YIELDED, AND STRAIN HARDENED REGIONS 


CASE J1 - MIDOLE STRAIN-HARDENED 


Th Stee Gia 4: NGO) tO) 4170 

IF (AD2.E0©.0.000) GO TO 460 
BET2:(EYW-T1)/4D2 
BETPZ=(ESH-T1)/AD2 

GO TO 480 

BET2=1.0D0 

BETP2:1.0D0 

Go TO 480 

TE Shot esas Opener ae O 

IF (AD2.EQ.0.0D0) GO TO 480 
BET2=1.0D0 
BETP2=(ESH-T1)/402 

GO TO 490 

BET2=1,0D0 

BETP2:1.0D0 


CALCULATE FACTORS FOR MULTIPLYING GEOMETRIC 
STIFFNESS SUBMATRICES 


CALL FWCALC(BCL,HW,TW,E2) 

FACT=(YSWs (ESH<E YW) E44 i( TW ESH) SE 2) =F E=STR 
FOC2=AD2*E2*FESTR 
FAC3=(YSW+(T1-EYW)fE1)*FE*STR 
FOAC4tAD2FE1*FEFSTR 

FACStTISEsFESSTR 

FOACE=AD22EtFEtSTR 


INTEGRATE STIFFNESS SUBMATRICES OVER 
STRAIN-HARDENED REGION OF THE WEB 
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&£r0,0D0 
B=BETP2 
PE CRAB SICA = By Cana tin OP = S.)0 GO) eT S110 
CAL LUPMEUS ALF, CWrits 6. 7) 
CALE RP HIYYiCB hr Aminel kinnG Wet Sy itis 
1 


CALE PREPHEUBS A, Fi rd >) CW), 8), 
CALUSPHEVIUB, AnF LY. o.EWs 7,85 15)) 

CALL EPHM(B A), EFT, CW, 7,918) 

00 500 121,7 

DO 500 Jel,7 

wer(l,J)=wei(l,J)+FAsFI(1,J) 
WE2(1,J)=WB2(1,J)+FBEFIYY(I,J) 
WB3(I,u)fWwe3(I,J)-FC2FIFI(1I,J) 
WB4(1,J)=WB4(1,J)¢FDEFIY(1,4) 
WES(1,J)tWBS(1,JS)+FACIFFI(1,43)+FACZ*EFI(1,0) 


INTEGRATE STIFFNESS SUBMATRICES OVER ELASTIC 
REGION OF THE WEB. 


AzBETP2 

B=BET2 

YE (DABSUASBYLUTS 1 .ep-'5) Go To S30 
CALL FWCALC(BCL,HW,TW,E1) 

SAR Ee Pina We nar me oliniG Winntin capa lis 


ry ) 
BAS Hetaver. Sieg Etnravin, (6 Wari Sieur esti) 
CALL PHIPHI(6,A4,FIFI,CW,7,5,15) 
EARE MPH iy (Baa ne Ly ycwaw, Sialic 
CALL EPA TUS ASEF DCW, 7 9che) 
po S20 Ts)? 
po 520 utl,7 
wWe1(1,9)=WwB1(1,J5)+FAsFI(1,J) 
WE2(I,J)*WB2(1,J)+FBtFIyY(1,4) 
wes(I,J)2We3(1,J)-FC=FIFI(1, J) 
wWee{(I,J)=WB4(1,J)*FO2FIY(1I,2) 
WES(I,J)=WBS(1,J)*FAC3#FI(1,J)+FACStEFI(1,J4) 


INTEGRATE-~STIFFNESS SUBMATRICES OVER ELASTIC 
REGION OF THE WEB 


oDpo 
F (DABS{A-B) LT.1.0D-5) GO TO S50 
CALL FWCALC(BCL,HW, TW,E) 

CADE PRIN CB Aig mo luew putiy Snr Tres 

CALL PHIYY(B,A,FIYY,CW,7,8,13) 
CALL PHIPHI(8,A,FIF1,CW,7,8,15) 
CAUSA DY CB Aur bY nC Waits 
CALL (EPHI(8 AEF Jew!.7, 95.1 


DO S40 Jf21,'7 

DO 540 Jet1,7 

WEI(I,J)=WB1(1,J)+FAZFI(1,J4) 
WE2(1,3)=WB2(1,J)+FBSFIYY(1I,J) 
WE3(I,J3)=WB3(1,J)-FC2FIFI(1,J) 
WBO(1I,J)=we4(1I,J)+FOFFIY(1,J4) 
WES(1,J)=WBS(I1,J)+FACS2FI (1,0) +FACEFEFI(I,J) 
TWzTSAVE 

RETURN 

END 


SUBROUTINE 35 


SUBROUTINE WBFORM 


THIS ROUTINE CALCULATES BENDING AND 
GEOMETRIC STIFFNESS SUBMATRICES WE1, WE2, WE, 
WB4,AND WBS FOR THE WEB IN THE ELASTIC RANGE 


N9NNNNNNHANHAANANDA 


SUBROUTINE WBFORM 

IMPLICIT REAL=8(4-H,0-2) 

DIMENSDON FT T) 2) pel Met tee DET dn) heii, 2). ER eae) 

COMMON /BLK1/E,V,NS,ITYPE,LTYPE, INEL,N,ICLAMP,IKIND 

COMMON /BLK4/FA,FB,FC,FD,FE 

COMMON /BLKS/ERTE,ERCM,ERTT,ERCB,ERCT,EYW,EYBF,EYTF 

COMMON /BLKE/ERTBAR,YB,Y1,AREL,ECC,ALAR,R 

COMMON /BLKS/CW(7,8) ,WB1(7,7),WB2(7,7),W83(7,7) ,WB4(7,7) ,WB5(7,7) 
COMMON /BLK1O/HW,TW,BCL,8F1,TF1,BF2,TF2 


ADJUST WEB THICKNESS TO ACCOUNT FOR WEB-TO-FLANGE 
Pel ales 


0 Fe ((oLierdi os Pe Exes EO eli7 a) ame SAU Ne ot 

IF (1TYPE.EO.7) TWt2.0D02TWtHW/(2.0D0=HKW-TFI-TF2-2.0D008TW) 
CALL FWCALC(6CL,HW,TW,E) 

TF eth Ty Yi Ere Oosnd Wan Ace 

Te OGITY PE NE 37) SREW=0 ODO 


CALCULATE FACTORS FOR MULTIPLYING GEOMETRIC 
STIFFNESS SUBMATRICES 


FACIZSE®ERCMFFE 
FAC2:EsFEx(FRTB+ERCM) 
FAC3Z=E*FEz(ERTT+ERCM) 


INTEGRATE STIFFNESS SUBMATRICES OVER WEB DEPTH 
FOR W-SHAPE 


B:1.0D0 
Az-1.0D0 
BADE SP eit 


-} FLW tenia’) 
CALE RE YY 

H 

( 


a, 

Bi Aw hI CW ct Siytiauy 
CB ARLE ra CWh. ty Sin 15) 
PANG Wer rndin tou 


CALL PHIP 
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CAUCE PHTY UB 
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IFe(ATVPES LT, 70) Gos TO) so 
CALL EPH (Oo, ODOy A, EFI, CW, 7,2), 18) 
ase tee ney ef 


DO 10 Jt1,7 

WBI(1,J0)2FAtFI(1,0) 

WB2(1,J)=FB2FIYY(1,J) 

WBZ (1, Ji) =-FOSFIFI(Y, 2) 
WB&(1,J)tFD2FIY(1,Jd)-FACIZFI(I,J)-FAC2ZSEFI (I, 
CALL EPHI(B8,0.000,EF1,CW,7,9,18) 

Dolzor Nee 7 

DO! 20) vel, 7 

wea(l,s)=wea(l,J)+FAC3=EFI(1,¥) 

GO TO (50,70,110,150),LTYPE 


J) 


INTEGRATE STIFFNESS SUBMATRICES OVER LENGTH OF 


SINGLE PLATE 


oO £6 5s 7 

DO 40 J:1,7 
WE) J SPAS EI C2, J!) 
WE2(1,J)fFBtFIVYY(1,J) 
WES (UD, Jf -FOsFIE? (2,0) 


WBS(1],JS)SFOeFIY(1, J) 
FORMULATE GEOMETRIC STIFFNESS SUBMATRICES 
VARIOUS LOAD CASES. 


GO TO (50,70,110,150),LTYPE 


AXIAL LOAD CASE 


DOM Some tary 

00 60 J:],7 
WEISEL nse ire Sirol legen) 
RETURN 


BENDING CASE [SINGLE PLATE). 


CALL EPHI(1.000,-1.0D0,EFI,CW,7,8,18) 
IF (I1TYPE.E£9.7) GO TO 80 

DO) 8:0) ele 407: 

pe 60 Srl, 7 

WBS(1,J)©tE=FExEFI(1,4) 

RETURN 


BENDING CASE (W-SHAPE) 


RW1=(0.500*HW/(0.5D0*HW-Y1))=FEZE 
RW2=(Y1/(0.5D0*HW-Y1))2FE=E 

DO 100 T21,7 

CO CoO ir t p77 
WBS(1,J)=RWIZEFI(1,40)-RW2SFI(1,J) 
RETURN 


woe 


AXIAL PLUS BENDING (SINGLE PLATE) 


CALE EP Hit. ODOn= 1) ,OD OEP lanGWisn7 ii, 18) 
Mae AU Sua gat ate AN Weil) Le EK 
FEALZESFESALAR 

[eve} GPrAoy SOSH G/ 

DP) 120) Jz 1, 7 
WB4(1,J)tWBS(1,J)-FEALZFI(I,J) 
WB5(1,J)tEesFEsEFI(1I,J) 

RETURN 


AXIAL PLUS BENDING (W-SHAPE). 


FEAL=E*FE*ALAR 
RWizE2(0.S5DO®HW/(0.5D002HW-Y1))2FE 
RW2:E2(Y1/(0.5D0=HW-Y1))#FE 

DOT 40 8s 2 1)7 

DG 1460 Jt1,7 
WB4(1,J3)=wWB4({1,J)-FEAL2FI(1,J) 
WBS5(1,JS):RWIFEFI(1,J)-RW22FI(1,4) 
RETURN 


ECCENTRIC LOAD (SINGLE PLATE) 


GACOME PHT ti OD On m=O DO} Er li GW genyos ens) 
Ws (eeueN els Tals tb dees Gate) ihzato) 
RFIZEs(6.O0008ECC/(HW+6 ODOZECC) )*FE 
RF2=E*RF12HW/(6.ODO*ECC) 

(eX efi We Sete) ERG! a aes 

Do 160 Jat, 7 
WBS(I,J)=RFIZEFI( I, J)+RF22FI (1,0) 
RETURN 


ECCENTRIC LOAD (W-SHAPE) 


R1ZAREA*® ECC EHW 

R222. ODO#ERTBAR-2 ODOFAREDZECCEY! 
RFIZEt(R1/(RI1+R2))*FE 
RF2=E=(R2/(R1+R2)) FFE 

POe sO. Theo 

DO 1eO> Vist | '7 
weS(I,J)#RFIZEFI(1,4)+RF22FI(1, J) 
RETURN 

END 


SUBROUTINE 36 


FOR 
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SUBROUTINE RAYLE 


THIS SUBROUTINE CALCULATES THE EIGENVALUE 
USING THE RAYLEIGH QUOTIENT WHEN THE EIGEN-SHELPE 


1S KNOWN. 


CCC CClCeCeCeeceCee cer eeceerececeeCerccececececCeecececececececcecee 


SUBROUTINE RAYLE(SVEC,ABG,EVAL) 
IMPLICIT REAL SS tA-H, 0-72) 
DIMENSION SVEC(1S),TYVEC(15),ABG(15,15) 


COMMON /BLK1/E,V,NS,ITYPE,LTYPE,INEL,N,I CLAMP, IKIND 


SvVEC = EJGENVECTOR 
ABG = INVERSE STIFFNESS TIMES GEOMETRIC STIFFNESS 
MATRICES 
Eval = EIGENVALUE 
Ni=) 


Le LIPS NE? 
DA1=DABS(SVEC( 
DA2:DABS(SVEC( 
TLELE 1. OD=6 

Lf (DA2 ba, FLLAND. DAZ UT. TLL) NGed4 
DO 30 I=N1,N 

SUM1=0 ODO 

DO 20 J=N1,N 
SUM1=SUM1¢ABG(1,U)*SVEC(J) 
TVEC(1)=SUM1 

SUMT=0,.0D0 

SUMB=0.000 

DO 40 J=N1,N 
SUMT=SUMT*#SVEC(1)*#TVEC(I) 
SUMB=<SUMB+SVEC(1)2SVEC(1) 
EVAL=SUMB/SUMT 

RETURN 

END 


) GO TO 10 
11)) 
$)) 
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SUBROUTINE 37 


eccceccececcecceccecccececcceecceeccececcececceccecceccecccce 


SUBROUTINE GOUAD 


THIS SUBROUTINE USES GAUSSIAN QULDRATURE 
TO INTEGRATE THE FOURIER SHAPE FUNCTION ALONG 


THE LENGTH OF A PEATE & SIX POINT GAUSS 
INTEGRATION IS USED FOR EACH SUBDIVISION OF 


LENGTH THE NUMBER OF SUBDIVISIONS EQUALS THE 
NUMBER OF CURRENT HALF WAVELENGTHS ALONG THE 


MEMBER. 


cecccecccccecccccececccececceccececcecccceccceccececceccecee 


SUBROUTINE GOUAD(M,RM1,RMZ,RM3,RMG) 
IMPLICIT REAL¥®&(A-H,0-2) 


COMMON VELKT/E,VGNS, DrYre, bry Pe, TNE ON Let aAMe oD ka ND 


COMMON /BLK1O0/HW,TW,BCL,BFI1,TF1,BF2,TF2 
DIMENSION P(21) ,F1(6)) FP2(6),F3(s) pats), SPie) 


SET GAUSS SAMPLING POINTS FOR INTERVAL -1 TO 


Gi 
G2 
G3 
G4 
cs 
cé& 


©.$3246251420315200 
“G1 
©.66120S38646E265D0 
-G3 
©.2386121860831970D0 
-Gs 


SET WEIGHTING FACTORS FOR INTERVAL -1 TO #1. 


B1=0.171326482379170D0 
B2=0.360761573048138D0 
B3=0.467213834572691D0 


CALCULATE NUMBER OF ELEMENTS AND DETERMINE END 
CCORIDINATES P(1) OF EACH ELEMENT OF THE LENGTH 


ELEM:1.0D0/M 


NEL=M 

NP=NEL?1 
®&(1)=0,.0D0 

Do 10 T=2,NP 
yM1=1-1 
P(1)=P(IM1)+ELEM 
RM1=0.0D0 
RMZ=RM) 

RM3=RM2 

RM4=RMZ 


LOCP OVER NUMBER OF ELEMENTS 


DO 50 1; NEL 
TP asa st 


c 
c 
c 
c 
c 
c 
[= 
c 
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CALCULATE SAMPLING POINTS AND WEIGHTING FACTORS FOR 


ELEMENT FROM & TO B 


ABro.5002(P(1)+P(1P1)) 
BAS OF SP Omi ((PiGlIP 1 )aP Ayli)e) 
SP(1)=AB+BA*G1 
SP (2)=4B+BA2C2 
SP(3)*AB+BAtG3 
SP(4)=OB+BO=64 
sP(S)=28+B4=C5 
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20 


30 


40 
so 


SP(6)=AB+BA2G65 
W1=BAFB) 
W2=BA*B2 
W3=BareB? 


DETERMINE THE VALUE OF THE INTEGRAND FUNCTIONS AT 
EACH OF THE 6 SAMPLING POINTS 


CADE RUNG TSP y mali eis aite aM) 


LOOP OVER 6 SAMPLING POINTS MULTIPLYING EACH BY ITS 
GAUSS WEIGHT AND ADD TO THE TOTAL INTEGRAL. 


00 40 J:1,6 

HE (dG. 2)" Coy Te, 26 
RMI=ZRMI+FI( JS) EW) 
RM2=RM24+F2(0)=W1 
RM3=RMS+F3(9)2W1 
RMS=RMG+F4(J) EW) 
GO TO 40 

TE GOS 4) GOs 10) so 
RM1=RM14+F1( 5) =W2 
RMZ2=RM2Z+F2( 5) =W2 
RMZI=RM3+F3(JU)=W2 
RMGz=RMG+F4(5) Ww? 
GO TO 40 
RMi=ZRM1+F1(4) 2Ww3 
RM2Z=RMZ2+F2( 5) *W3 
RM3=RM3+F3(4) ew 
RMO=RM4+F4(5) WS 
CONTINUE 
CONTINUE 

RETURN 

END 


wom 
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SUBROUTINE 38 


CCECCCCCECCECECECEECECECCEeCC Re CeCe eC ecececceecece cece eccecece 


THIS SUBROUTINE EVALUATES THE INTEGRAND 
FUNCTION AT EACH OF THE 6 GAUSS POINTS AND 
RETURNS TO GAUSS TWELVE DIFFERENT LONGITUDINAL 


is 
c 
c 
c 
c 
c 
c 
SUBROUTINE FUNCT c 
c 
[= 
c 
c 
ENO CONDITIONS ARE USED. c 

c 

c 


eccccccccccccececcecceccececcececcceceececcceecceccececceece 


SUBROUTINE FUNCT(SP,F1,F2,F3,F4,M) 

IMPLICIT REAL*®8(4-K,0-2) 

COMMON /BLK1/E,V,NS,ITYPE,LTYPE,INEL,N, 1CLAMP,1KIND 
COMMON /BLK10/HW,TW,BCL,BF1,TF1,BF2,TF2 

DIMENSION F1(6),F2(6),F3(6),F4(6),SP(6) 
P1=DARCOS(-1,0D0) 


LOOP OVER THE SIX SAMPLING POINTS EVALUATING THE 
FUNCTION AT EACH POINT. 


fofoh We Mop UES) 
St=Sp{?) 
S$2=:SP(1)*22 
S3=SP(1)**3 
S4:SP(1)=24 
S5tSP(1)#=5 
BRG=M2P1*SP(1) 


SELECT WHICH FUNCTION IS TO BE EVALUATED ACCORDING 
TO THE VALUE OF IKIND. 


GO TO (10,20,30,40,S50, 60, 70,80), 50, 1010, 110, 1120), IKIND 
F>16.0D07S4-32 000*S3+16.0D07S2 
FP>(64.0D0*S3-96.000152+32.000*S1)/BCL 
FPP=(182.0D04#S$2-192.0002S51+232.0D0)/BCL2#2 
GO TO 130 

Frs4 

FPt1.O0D0/BCL 

FPP=0.0D0 

G60 TO 130 

Frs2 

FP22.0D0=S51/BCL 

FPP=2 0D0/BCL?2z2 

GO TO 130 

AAt-111.8033989D0 
FzrAAz(S5-2,500784+2.0004S3-0,.£5D08S2) 
FP=Ah=(5.000FS4-10 0D02S3+6.0002S2-S1)/B8CL 
FPP:OhA=(20.000*S3-30.000#S24+12.0D0*S1-1,0D0)/BCL=#2 
Go To! 130 i 
Fr(=27.00/4.00)#(S3-S2) 
FPz(+27.D0/4.00)#(3.D0*#S2-2.D0#S1) 
FPP=(-27.00/4.00)(6.D0*¥S1-2,D00) 

GO TO 130 

F>-6.0D02S3+9 0001S2-3.0D0#S1 
FPz(-18.0D0#(S2-S1)-3.000)/BCL 
FPP=(-36.000#81+16.000}/BCL*t2 

GO TO 130 

Fr-2,000*S3+3.0D0#S2 
FP:2(-6.0D02(S2-S1))/BCL 
FPP:z(-12.0D02S1+6.000)/BCL2 32 

GO TO 130 

Fr-S$2+2.0D0FS1 

FP>=-2.0002(S1-1.0D0)/BCL 
FPPr-2,0D0/BCLE*2 

GO TO 130 

Fz-@.0D08(S2-S1) 

Fez(-8,000*S1+4.000)/8CL 

FPP>-8. ODO/BCL*t2 

GO TO 130 
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6667 100 +64 .0D08S3*(S1-1.0D0)#F3 

BE6E FPr-122.0D0*S2*(S1-1.000)##2*(2.0D0*S1-1.000)/BCL 

6669 FPP:-384 ODOFS1#(S1-1.000)2(5.ODO#S2-5 ODO#S1+1.0D0)/BCL¥#2 
6670 (Se) Gel) EK 

6671 110 Frs3 

6672 FP:3.0D0*S2/BCL 

6673 FPPS&6 ODO#S1/BCL #2 

6674 GO TO 1306 

6675 120 Frsg 

6676 FP=@.0D0*S3/BCL 

6677 FPP=12.0D0®S2/BCL #22 

6s7e 130 G=DSIN(ARG) 

66758 GP=M=P1=DCOS(ARG)/BCL 

6680 GPP>-Mt422Pl]ee25G/BCL F232 

6681 FI(I)=BCL*(FPPSG+2.O0D0*FPEGP+FEGPP)zt2 

6682 F2(1)®BCL¥F2G=sFtG 

6683 F3(1)=BCL*(FRP*G+2.O0D0=FP*GP+GPPEF)IFEG 

6684 F4(1)=6CL¥(FP8G+GPrF)ez2 

eees 140 CONTINUE 

6686 RETURN 

6687 END 

ees EGCCCRCCCECCECORCCCCECECECCCCCCECCCPELCCCCECECCCCOCCECOCORGE 
€6e9 c (E 
66S0 c Cc 
66391 é SUBROUTINE 39 c 
bes? (S Cc 
6633 c [= 
6694 CECCECCCECECCECCOCECCCES CCS CCeCe CEC CCeEECecCCreCeeeeceecceneececesc 
6695 c c 
6ESS € SUBROUTINE SWEEP e 
6697 c c 
66se c THIS SUBROUTINE IS CALLED FROM EIGEN, AND c 
66s € AND IT SWEEPS OUT A GIVEN MODE FROM THE GIVEN c 
6700 (2 EIGENSYSTEM BEING SOLVED. (3) 
6701 = c 
6702 CECCCEECECCCEEECOCECECCECOCEECCEECCCCECCCECECCCCEeCeccCCececccece 
6703 SUBROUTINE SWEEP(ABG,SC,SVEC,ICH) 

6704 IMPLICIT REALt&(A-H,0-2) 

E705 DIMENSION ABG(15,15),8G6(15,15),SVEC(15) 

BTOE DIEMENS TON SAe1 Sit So) elise > ilnchow Gite nS) 

6707 COMMON /BLKI/E,V,NS,ITYPE,LTYPE, INEL,N,ICLAMP,IKIAWD 
E708 Ue (Sst heal sere WW) tle Sy) re) 

e709 GO TO 30 

6710 c 

6711 c 

6712 c FOR THE FIRST SWEEP SET S({1,J) TO THE IDENTITY 

6713 [e MATRIX. 

6714 c 

6715 10 DOM Zim re tii 

6716 DO ZO Jze1,N 

6717 S(I,J)=0.0D0 

6718 VE (iSO ls) Sin d= 1 OD 

6713 20 CONTINUE 

6720 c 

6721 & 

6722 c FOR SUBSEQUENT SWEEPS USE PREVIOUS VALUE OF S([(1,J) 
6723 ic 

6726 30 00 50 It1,N 

6725 SUM:0.0D0 

6726 00 40 J=1,N 

6727 40 SUM=SUM+SVEC(J)*SC(J,1) 

6728 FVET(1!)=SUM 

6729 50 CONTINUE 

6730 SUMB=0.000 

673) px GCy 68) 1) 

6732 SUMB=SUMB*FVEC(!1)=*SVEC(1) 

6733 DO 60 J=1,N 

6734 PiTe as) EW BG (eel) = SWie CiGors) 

€735 60 CONTINUE 

€736 RSUMB=:1.0D0/SUMB 

67237 DO) “70> Kean 

6738 p90 70 J=©1,N 

6738 S(T, J3)=S(1,59)-P (1,35) =RSUMB 

6740 P(I,J)=asG(1,J) 

67461 70 CONTINUE 

6742 c 

6743 c 

6744 Cc MULTIPLY THE CURRENT MATRIX ABC({1,J) WHICH IS NOW 
6745 c STORED IN P(1,J) INTO THE CURRENT SWEEPING MATRIX 
6746 c ${1,JN) AND STORE THE RESULT IN ABG(1,J) AND RETURN 
6747 c TO EIGEN TO GET THE NEXT MODE 

6748 c 

6745 CALL MULT(ABG,P,S,N) 

6750 RETURN 

6751 END 

6752 CESECCECECECECECCRCCCCCCEeE CE ee CE RCE CGheCeochChCee Ce Cececciccce 
6752 [e is 
6754 ( c 
6755 c SUBROUTINE 49 Cc 
E756 [= e 
6757 c c 
67SE SCCCOCCECEEECCCECECCOCCECGCCECE CCE CCCCCEScercecececceccececs 
6759 ie c 
6760 C SUBROUTINE FORCE 5 
6761 c c 
6762 5 THIS SUBROUTINE 1S CALLED FROM SATEO IN Cc 
6763 = ORDER TO EVALUATE THE SUM SF OF THE FORCES E 
6764 (S ACTING ON A CROSS-SECTION IN THE LONGITUDINAL c 
6765 c DIRECTION £7 A GIVEN COMPRESSIVE STRAIN, ESB Cc 
6766 c ie 
6767 GCEGCCEECCCCCCCECCECCCCCECCCECCCECOCEECECETCEC COeCCOC CEC OCCEECCCES 
6768 SUBROUTINE FORCE(ESB,ESPP,AXLO,SF) 

676s IMPLICIT REAL#®E(L-H,0-72) 

6770 COMMON /BLKI/E,Y,NS,ITYPE,LTYPE, INEL,N, ICLAMP, IKIND 
arnt COMMON /BLKS/ERTB,ERCM,ERTT,ERCB,ERCT, EYW,EYBF EYTF 
6772 COMMON /BLKE/ERTBOR,YB,Y1,AREA,ECC,ALAR,R 

6773 COMMON /BLK1O/HW, TW,BCL,BF1,TF1,BF2,TF2 

6774 COMMON /BLK11/E1,E£2,ESH,YSW,YSFB,YSFT,SRTB,SRCM,SRTT,SRCE,SROT 
6775 (e 

B77E (< 

e777: E Ec = STRAIN AT THE MIDDLE OF THE WEB 

e778 [= EAPP = APPLIED AXIAL STRAIN 

67738 c ESB t+ BENDING STRAIN JIN THE COMPRESSION FLANGE 
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REB = BENDING STRAIN IN THE 


EC=(2.0007V1/(2.0D0=y1-HW) )*ESB 
EAPEB=ESB+EAPP 

EB:ESB 

REB=R*ESB 

EARST:>EAPP-REB 

RSTEA=REB-EAPP 

TIZTEYTF-ERCT 

T2=EYTF+ERTT 

T3=ESH-ERCT 

TOZTESH+ERTT 

ADEN=FERCT+ERTT 

Se ass ayy Teme Aya} 9) {ete} apie Me) 
ALFT=1.0D0 

ALFP=1.0D0 

GO TO 60 

Lf (EAPEB.GT. 2) GO To so 

IF ({ADEN.EQ.0.000) GO TO 20 
ANUM:T2-EAPEB 

ALFT2ANUM/AOEN 

IF (ALFT.GT.1.000) ALFET=1.0D0 
TF (ALFT LL (0 .0D0) ALFT=6. obo 
ALFP=1.0D0 

GO TO 60 

BLLFT=0.0D0 

ALFP=1.0D0 

GO TO 60 

EF WBA ES GT Tae GOssnon 40 
ALFT#0.0DO 

SLFP=1.0D0 

GO TO 60 

1F (EAPEB GT.T4) GO TO 50 

1F (ADEN.EO.0,0D0) GO TO 50 
ANUM:T4-EOPEB 
ALFP=ANUM/ADEN 

IF (ALFP.GT.1.0D0) ALFP 
TF (CARP ot 07,600) ALE 
ALFT=0.000 

Go TO 60 

ALFP=20.0D00 

ALFT=0,0D0 


1.0D0 
©.0o00 


TENSION FLANGE 


EVALUATE FORCES IN THE COMPRESSION FLANGE 


Al 
A2 
bs 
[a4 


©.SDO=8F2=TF2SALFT 
2.CDOF(EAPEB-ERTT)#E 

ADEN EZALFT 

=A1x7(A2+A3) 

A120. SDOFBF2=TF2#(4LFP-ALFT) 
A2=2.000=(YSFT+(EAPEB-1T2)2#E1) 
AS=ADENZEVE(ALFP+ALFT) 
F222A1#(a22+43) 


A120. SDO=BF2*=TF22(1.ODO-ALFP) 
A2:2.OD0*(YSFT+(ESH-EYTF)=E1+(EAPEB-T4)2E2) 
AZ=ADEN#E22+(1.0D0+ALFP) 


F23:A1®(A2+A2) 

P2sRontr 22 ri23 

DF (SARS T GTO. C56) Ga TO 136 
TIZEYBF-ERTB 

T2:EYBF+ERCB 

T3=ESH-ERTSB 

TO=ESH+ERCB 

ADISERTB+ERCB 

IF (RSTEA GT. 14) GO To 76 
ALFB=0.0D0 

ALFBP=0.90D0 

GO TO 120 

DF RSTEALGT. T2)) Go: TO SiC 

IF (401.E©.0,0D0) GO TO 80 
ANT=RSTEA-T1 

ALFB:OAN1/AD1 

IF (ALFB.GT.1.0D0) ALF&?1,.0D0 
IF (ALFB.LT,.0.0D0) ALFB=0.0D0 
ALFBP=0.0D00 

GO TO 120 

ALFB=1.0D0 

ALFBP=0.0D0 

GO TO 120 

IF JURSTEAL GT S)))) Gill TON too 
ALFB=1.0D0 

ALFBP=0.0D0 

GO TO 120 

DE SURSme aici s ) GOs Ons aitiO 

WE AO EO Oo. ODIO) Gio TO 14:0 
ANI=RSTEA-T3 
ALFBP=AN1/AD1 

IF (ALEBP Gi, 1.0D0) ALPSP 
1F (ALFBP.LT.0.0D0) ALFBP 
ALFEB=1,0D0 

GO TC 120 

GLFBE1. ODO 

ALFBPt1.0D0 


1.0D0 
odo 


now 
° 


EVALUATE FORCES IN TENSION FLANGE WHEN 


1N TENSION 


£1it0.S5D08B8FI*TFISALFBP 
AZ 
43 
Fd 


AD\*E2*ALFBP 

=A1®(A2+A3) 
A120.SDO*BFI#TFIS(ALFE-ALFBP) 
AZ 2,0D02((-YSiF Sti Ta -RS THEA) = En) 
£3=A018E1=(ALFB+ALFBP ) 
F12=A1*(A2+43) 
Al=O0,.500#BF12TF1#(1 ODO-ALFB) 
A2:2,0D0z=(EARST-ERTB)=E 
A3=AD12E*(1.0D0+4ALFB) 
F13=A1®(A2+A3) 

FISFIUS+F124+F 11 

GO TO 200 


2.0D02(-YSFE-(ESH-EYBF)®E1+(T3-RSTEA)*E2) 
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6892 130 TIZEYBF-ERCB 

6894 TZ2Z=EYSF+ERTB 

6ess T3:ESH-ERCB 

6896 TS=ESH+ERTB 

68637 ADENZSERCB+ERTE 

BSSE Mey (EARST.Gm ota) Go) TO) 140 
6ass ALFT=1.0D0 

6300 ALFP:1,.000 

6901 GO TO 190 

S02 140 IF (EARST.GT.T2) GO TO 160 
6903 IF (ADEN.EO.0.0D0) GO TO 150 
6904 ANUM:TZ-EARST 

6905 ALFT=ANUM/ADEN 

63906 Ue CALE Th oGina=CDO))) Aliransd. op. 
6907 IF (ALFT.LT.C.ODO)) ALFTs6. ope 
6908 ALFP=1.0D0 

6sos GO To 190 

63910 150 ALFT=0,0D00 

6911 ALFP=1,0D0 

6912 GO TO 180 

6913 160 VE (EARST. Ohh)! Gol mo) 170 
6814 ALFT:0.0D0 

6915 ALFP:1.0D0 

6816 Go TO 190 

6917 170° DE (EARS Ty Giese Gel 0) 1s8\c 
6918 TF (ADEN.EO.0.0D0) GO TO 160 
6919 ANUM:T4-EARST 

6S20 ALFP=ANUM/ADEN 

6921 1F (ALFP.GT.1.0D0) ALFP=1.050 
6922 IF (ALFP. LT .O ODO) ALFP 20 Ope 
6823 ALFT=0.0D0 

6924 GO TO 190 

6825 180 ALFP=0.0D0 

6S76 ALFT=0.0D0 

6927 c 

6926 iS 

6s2s [s EVALUATE FORCES 1N TENSION FLANGE WHEN FLANGE IS 
6330 c COMPRESSION 

6931 ic 

6932 190 A1=0,S5DO8BFISTFIZALFT 

6333 A2=2.0D0*(EARST-ERTB)FE 

6934 AW=ADENZEZALFT 

6335 Fist A1®(A2Z+A3) 

6836 A120. 5D0=2BF1*TF1®(ALFP-ALFT) 
6337 A2=2.000=(YSFB+(EARST-T2)*E1) 
6938 AJ=ADENFEI=(ALFP+ALFT ) 

6339 F12=A1*(A2+A3) 

6340 A1:0.5D08BF12#TF12(1.O0D0-ALFP) 
6941 42=2.0D0*(YSFB+(ESH-EYBF)®E1+(EARST-T4)*#E2) 
6942 AZ=ADENFE2* (1. ODO+ALFP) 

6942 F13=A1%(A2+A3) 

6946 FISFYI+F12+F13 

6s46s 200 TIFERCM+EC 

6946 T2Z=EYW-ERTB 

6947 T3:ESH-ERTB 

6945 TSS EYWtERTT 

6e4a9 TS=ESH+ERTT 

6350 TO=TI+EAPP 

€ssi ADI=RES+T1+ERTB 

6952 AD2=:EB-T1-ERTT 

6953 KF (he.Ghek Vwi GO! 10) 2:10. 

6954 BET3=0.0D0 

6es5 BETP3:0,0D0 

69S6 GO TO 250 

6357 210 IF (15.67 .ESH)) Go To 230 

esses IF (AD1.E£0.0.0D0) GO TO 220 
€sss BET3:(T6-EYW)/AD1 

6360 IF CSETS 16%. 1.0D0) BETS 2s ODO 
6961 IF (BETS.£T.0.0D0) BET3=0.oDO 
6362 BETP3:0.0D0 

63963 GO TO 250 

6564 220 BET3=1.000 

ese6s BETP3=0.0D0 

6966 GO TO 250 

6967 230 IF (AD1.E0.0,0D0) GO TO 286 
6968 BET3=(T6-EYW)/ADi 

6s6s BETP3:(T6-ESH)/AD1 

670 IF (BET3.GT.1.0D0) BET3=1.0D0 
6571 ITE (BETS Lt.o. cdo) BETZ=0 ODS 
63872 lf (BETPS. Gi. 1.000) BETPS st 0D0 
6373 IF (BETP3.LT.©0.0D0) BETP320.0D0 
6974 GO TO 250 

6375 240 BET3=1.0D0 

6g76 BETP3=1.0D0 

6977 250 IF (RSTEA.GT.T2) GO TO 260 
6978 BET1=1.0D0 

es7s BETP1=1.000 

6s8o GO TO 300 

6981 260 Mr (CRSTEAL Gis) «Go! To 2a0 
€S82 DF {ADAP EO 20.ODO)| ‘Giel 7O) 2710 
6983 BET1=(T6E+E YW) /401 

6984 IF (BERT. Gt. ODO) BET tsi. ope 
6ses If (BET1.LT.0.0D0) BET1#0.0D0 
6366 BETP1=1.0D0 

69567 GO TO 300 

6988 270 BET1=1.0D0 

6969 BETP1=1,0D0 

6390 GO TO 300 

ess) 280 1F (AD1.£0.0.000) GO TO 290 
6992 BETi=(TE+EYW)/AD1 

6933 BETP1=(T6+ESH)/ADI 

6994 TP BEd Gig eO DIO!) is BEmit=n) ODIO 
6395 IF (BET1.LT.0.0D0) BET1=*0.0D0 
6936 IF (BETP1.6T.1.0D0) BETP1+21.0D0 
6ss7 IF (BETP1.07.0.0D0) BETP IFO. 0D0 
6S98 GO TO 300 

6933 230 BET1=1.000 

7000 BETP1=1.0D0 

700} (e 

7002 c 

7003 c EVALUATE FORCES IN LOWER HALF OF WEB 
7004 c 

7005 300 B1=0.2500#HWzTWt(1.ODO-BETP1) 
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380 
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400 


rPNANOA 


420 
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B2=2.0002(-YSW-(ESH-EYW)*E1+(ESH+7TE)2#E2) 
B3:(REB+T1*+ERTB)¥E2*(1.0D0+BETP 1) 
FW1=B1%(B2-83) 

B1=0.25D0=7HW:TWs (BETP1-BET1) 


B2=2,0D0"(-YSW+(EYW+T6)=E1) 
B3:(REBt+TI+ERTB)*E12(BETP1+BET1) 
FW2:61*(B2-B3) 

£1=0.25D0=HW=TWt (BET1-BET3) 
B2=2 ODOFTEZE 
B3:(REB+TI+ERTB)*E* (BETI+BET3) 
FW3:B12(B2-683) 

Bizt0.25DO8HWtTWs (BET3-BETP3) 
82=:2.0D0z(YSW+(TE-EYW)*E1) 
B3:(REB+TI+ERTB)*E1*(BETI+BETPS) 
FWS=B81*(B2-83) 
B1=0.25DO02TWHHWSBETP3 
B2=2.00D0*(YSW+(ESH-EYW)2#E1+(TS&-ESH) E72) 
B3=(REB+TI+ERTB)®E2*BETPZ 
FWS5=B12(B2-83) 

ia (ais cola lel Fateh EMS) 

1F (ERFPEB.GT.T4) GO TO 310 
BET2=:1.000 

BETP2=1,0D0 

GO TO 350 

IF (EAPEB.GT.TS) GO TO 330 

1F (AD2.E0©.0.0D0) GO TO 320 
BETZ©(EYW-T6)/AD2 

IF (BET2Z-GT.1.0DoO) BET2=©1.oboe 
IF (BET2.LT7.0.000) BET2:¢6.0006 
BETP2:1.0D0 

GO TO 350 

BET2=0.0D0 

BETP2=1.0D00 

GO TO 350 

1F (AD2.EQ.0.0D0) GO TO 340 
BET2:(EYW-1T6)/AD2 
BETP2=(ESH-T6)/AD2 

IF (BET2.GT.1,0D0) BET2=1.0D0 
IF (BEtT2, LT. 0. .Ope} BETZ=0 CDC 
LF (UB EMP 25 Gites ODIO). BiemPi2eue ODS. 
DE (SETP2°UT 30.000) BETP280, ODO 
GO TO 350 

BET2=0,0D0 

BETP2=O.0DO0 


won. 
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B1=0.25D0*HWxTWEBET2 
B2=2.ODO0rTEFE 
B3:(ESB-T1-ERTT)®ES£BET2 
FW6:B12(52+83) 

B1=0, ZSDOFHWs TW (BETP2-BET2) 
B2=2 ODO*(YSW+(TE-EYW)*E1) 
B3:(ESB-TI-ERTT)®£1*(BETP2Z+BET2) 
FW7=612(B82+B3) 
B1=0.25D0FHW:TWt(1,.O0D0-BETP2) 
B2=:2.0D02(YSW+(ESH-EYW)tE1+(TE-ESH)®E2) 
B3:(ESB-T1-ERTT)®E2*(1.0D00+BETP2) 
FWS:B12*(B2+B2) 

GO TO 470 

IF (T6.GT.ESK) GO TO 420 

WE VEAP ES 6m. 714))) Go To 380 

IF (A02.£0,0.0D0) GO TO 370 
BET2=(EYW-T6)/AD2 

IF (BET2.¢67,. 1.0D0) BETZ: 1, ODO 

TE (BETZ: bt 10. ODO) BET 250). 10DI0 
BETP2=1.0D0 

GO TO 410 

BET2=1.0D0 

BETP2:=1.0D0 

GO TO 410 

IF (EAPEB.GT.1T5) GO TO 380 
BET2=1.0D0 


BETP2=1,0D0 
GO TO 410 
IF (AD2.E@.0.0D0) GO TO 400 


BETP2:(ESH-7T6)/AD2 

IF (BETP2.G6T.1.000) BETP2:1.0D0 
IF (BETP2.LT.0.0D0) BETP2=0.0D0 
BET2=BETP2 

GO TO 410 

BETP2:1.0D0 

BET2Z=BETP2 


EVALUATE FORCES IN UPPER HALF OF WEB WHEN MIDDLE 
WEB IS YIELDED. 
B1=0. 2500*HW2TWEBET2 
B2=2.0D0t+(YSW+(TE-EYW)*E1) 
B3:(ESE-TI-ERTT)*#E12BET2 
Fwe=81*(82+B83) 
B1=0.25DO2HWrTWe (BETP2-BET2) 
B2:2.0D00zTEFE 
B3:(ESB-T1I"“ERTT)*E=(BETPZ+BET2) 
FW7=B12(B2+B3) 
B1=0.25D0=HWsTWt(1,0D0-BETP2) 
B252.0502(YSW+(ESH-EYW)*E1+(TE6-ESH)FE2) 
B3:(ESB-T1-ERTT)#E22(1.O0D0+BETP2) 
FW8:B12(B2+B3) 
GO TO 470 
IF ({EAPEB.GT.T4) GO TO 440 
1F (ADZ.EO.0.0D0) GO TO 430 
BET2:(EYW-T6)/AD2 
BETP2:(ESH-T6)/AD2 
TF (BET2, Gu. .OD0)) BET 2=1)10D/0 
IF (BET2Z-UT 0 ,0D0) BETZ=0. Ope 
VE (BERR 267.1) ODO.) BE TP 2 £1) .ODio 
IF (BETP2.LT.©.0DO0) BETP22#0.0D0 
CO TO 460 
BETZ2=1.0D0 
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BETP2:1.0D0 
GO TO 460 

440 IF (EAPEE.GT.T5) GO TO 450 
IF (AD2.E0.0.0D0) GO TO &50 
BET2:1.0D0 
BETP2:(ESH-T6)/AD2 
IF USENP2.67. 1,600) BETE2ZE1 ODO 
IF (BETP2.LT.0,000) BETP2=0.0D0 
GO TO 460 

450 BET2=1.0D0 
BETP2:1,0D0 


WEB IS STRAIN-HARDENED. 


PnNANaan 


Eo BitO, 2500®HW=TWHBETP2 


B2=2.0D0#(YSW+(ESH-EYW)#E14+(TE-ESH) *E2) 


B3:(ESB-TI-ERTT)*E2=BETP2 
Fwe=Bis(B2+63) 
B1=0.25DO0sHWr TW: (BET2-BETP2) 
B2=2.0D0=(YSW+(TS5S-EYW)=E1) 
BSc (ESb=TI-ERTT)2 Ets (BET2Z+¢BETP2) 
FW7:B1s(B2+B83 ) 
B1t0,2500*HWeTWz(1,.OD0-BET2) 
B2t2.0D0#T6EFE 
B3=(ESB-T1-ERTT)#&E#(1.0D0+BETZ) 
FWa:Btz(B2+83) 

4790 BRS e Fe 2 
FWWrPFWItFW2+FW3 +P we 
FWWrFWW+PWS +FWE + PWT +e Pw 
SFEAXLO-FF-FWW 
RETURN 
END 
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ecececccecccceccececceececcceccceccececcecceccceccccceceececcccccce 


SUBROUTINE 41 


CCCCECCCcCeeccecececeeccececececcececececccecceccececccececcecececce 


SUBROUTINE SATEOQ 


TO DETERMINE THE LOCATION OF THE NEUTRAL AXIS 
DISTANCE Y1 FROM THE CENTER OF THE COMPRESSION 
FLANGE IN ORDER TO SATISFY EQUILIBRIUM AT A 
CROSS-SECTION. THE RATIO OF STRAIN IN THE TOP 
FLANGE TO STRAIN IN THE BOTTOM FLANGE, R, IS ALSO 


FOUND FOR A FIXED STRAIN, ESB, 


IN THE TOP FLANGE 


THIS SUBROUTINE 1S CALLED FROM PLATES AND PLATES. 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c THIS SUBROUTINE USES AN ITERATIVE TECHNIQUE 
c 
c 
c 
c 
c 
c 
c 
c 
(= 


CEECCECCORCCE CeCe cece eoeececececececceceecceerecececeCececce 


SUBROUTINE SATEOQ(ESB,EAPP,AXKLO) 
IMPLICIT REAL®8(A-H,0-2) 


COMMON /BLKS/ERTEB,ERCM,ERTT,ERCB,ERCT,EYW, EYBF ,EYTF 
COMMON /BLKE6E/ERTBAR,YB,Y1,A4REA,ECT,ALAR,R 
COMMON /BLK1O/HW,TW,BCL,BF1,TF1,BF2,TF2 


NSTOP=O 


(2:YiD't } 


N9nnnAnn 


YD1=0.5D0=7 KW 
Y120,500=HW-YD1 
ROEN=0.5D0#HW-Y1 
IF (RDEN.E©.0.000) GO TO 10 
RNUM=0.S5DO®HW+Y1 
R=RNUM/RDEN 
SO Onc 
10 R=1.0D0 
20 YO2=YD1 
CALL FORCE(ESB,EAPP,AXLO,SF1)} 
DFAS Tall ba On ODO) sGiOs a0: 24 
IF(SF1.EO0.0.0D0) RETURN 
GO TO 22 
aay NSTOP=NSTOP+1 
IF(NSTOP.GT.20) GO TO 110 
YD1=0.9D0#YD1 
GO TO 5 


uv 


(=2¥/B}25) 


NSTOP=0 
YDisis tess y¥ D2 
Y120.500*HW-YD2 
RDEN=0.SDO=HW-Y1 
IF (RDEN.EO.0.000) GO TO 40 
RNUM=0,5D0=HW*+Y1 
R=RNUM/RDEN 
GO TO 506 
40 R=1.0D0 
50 CALL FORCEIESB,EAPP,AXLO,SF2) 
NSTOPSNSTOP+1 
TF CNSTOP. GT 220.) Gio TO: Wao 
iF (SF2 767.6, 0D) Go TO i6o 
1F (SF2.EO.0.0D0) RETURN 
NCOUNT=0 
GO TO 70 
6° YD1I:tYD2 
SFirtSF2 
GO TO 30 


WNADTNAANANN 
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CHOOSE A VALUE OF YD3 HALF WAY 


syNnNNANAa 


° YD3=0.500*(YD1+YD2) 


DETERMINE THE VALUE OF Y1 SO THAT THE SUM OF THE 
FORCES AT THE SECTION HAS A POSITIVE NET VALUE 


OETERMINE THE VALUE OF Y1 SO THAT THE SUM OF THE 
FORCES AT THE SECTION HAS A NEGATIVE NET VALUE 


BETWEEN YO! AND YD2 


c 
c 
c 
c 
c 
c 
c 
c 
ie 
c 
c 
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c 
c 
c 
c 
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Y1=0.5D0*HW-YD3 
RDEN=0.5D07#HW-Y1i 

IF ({RDEN.EQ.9.000) CO TO 
RNUM=O0.SDOFHW+HY 1) 
R=RNUM/RDOEN 

GO TO 90 

R=1.0D0 

CALL FORCE(ESE,EAPP,AXLO 
NCOUNT=NCOUNT*1 
DY1=DABS((YD1-YD3)/Y01) 
DY2=DABS((YD2-YD3)/YD2) 


WHEN YO3 IS SUCH THAT 
NEUTRAL AXI]S DOES NOT 
ITERSTION AND RETURN. 
METHOD OF BISECTION. 


inal 
1F 
1F (NCOUNT.GT.S50) GO TO 
Sills Stuasiks 

TE USFilia em. Onno j}m Gow To 
YDi<tyYD3 

SF1=SF2 

GO TO 70 

YD2=YO3 

SF2=SF3 

GO To 70 

WRITE (6,130) 

STOP 

WRITE (6,140) 

sTopP 


70.0100 
(0 
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OTHERWISE CONTINUE WITH THE 
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120 


100 


FORMAT [(’ ‘’,5xX,’SF2 FAILED TO BECOME NEGATINE IN 260 ITERATIONS IN 


&SUBROUTINE SATEO.’ ) 


FORMAT (‘’ ‘,S5X,’SUBROUTINE SATEQO FAILED TO CONVERGE IN SO ITERATIO 


ENS a0) 
END 
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APPENDIX D 


SAMPLE PROBLEMS 


Daley introduction 


The results of two sample problems were obtained using 
the computer program listed in Appendix C. These results are 
presented below for the purpose of illustrating the use of the 
computer program. In sample problem number one a W shape is 
subjected to pure bending and the critical local buckling moment as 
well as the buckled configuration are determined (by an inelastic 
analysis if necessary). In sample problem number two the same W 
shape 1s subjected to a given axial load and analysed for the 
critical superimposed moment which causes local buckling. As part of 
Ene OuUfDUC Of this problem, the critieal exial Load causing local 
buckling as well as the buckled configuration are presented. The 
superimposed local buckling moment and resulting buckled configuration 


are also given. 


D.2 Example Number 1 


The input data for this problem consists of 6 lines (one 
line per computer card). Referring to the first line of data, the 
total number of specimens to be analysed is 1, the modulus of 
elactiet tyvarse 29000" (ici) wend Poisson: sanatio isa) .3 ihe tirst 
imbeger sof (the second ine dof Vinputiindicates thar thus is the firse 


specimen in this group to be analysed. The second, third and fourth 
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digits indicate that the configuration to be analysed is a W shape 
(ITYPE = 7), the loading isto be pure bending (LTYPE = 2), and an 
inelastic analysis is to be performed (INEL = 1). The fifth and 
sixth digits indicate that the ends of the specimen are pinned 
(ICLAMP = 0), and that an unmodified longitudinal sinewave shape is 
to be used (IKIND = 0). 

In the third line of input, the first three members 
indicate that the yield stress of the compression flange, web, and 
tension flange are all 44.0 (ksi.). The last three numbers indicate 
Ehat the ratio of residual strain to yreld straim im the tension 
zone edge of web, middle of web, and compression zone edge of web are 
0.3. In the fourth line there are seven numbers corresponding to the 
specimen length (20.0 in.), the distance between mid-planes of 
flanges (10.0 in.), the web thickness (0.25 in.), the width and 
Ehneknesswot the tension flance (0.0 in. anc 0735 ine), end the wadth 
and thickness of the compression tlanee (10.0 in. and 0.35 in.) 
respectively. 

The slope of the yielding portion of the stress-strain 
curve, the strain-hardening modulus, and the strain at the onset of 
strain-hardening are given in the fifth line as 800.0 ksi., 800.0 ks1., 
and 0.02 in./in., respectively. The imteger zero in the sixth line is 
a signal to indicate the end of the data for this particular run. 

In the output portion of this problem the data from the in- 
put are listed. Im addition to these, various geometric properties of 
the section are listed as well as the critical bending moment, and the 
ratios of the critical bending moment to the yield and plastic 


moments. The final page of output shows the critical compression flange 
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strain and the half wavelength of the longitudinal local buckle. The 
buckled configuration is shown in the form of values of the 
displacement coordinates indicated on a computer reproduction of the 


cross-section shape. 


D-3 Example Number 2 


In this problem the same W shape section as used in 
Example Number 1 is analysed here as a beam-column. The input data 
CONsists or 8 liness “Lines 1 to. 5 are identreall to: those of the 
previous problem with the exception that an integer, 3, in the second 
line is used to indicate that the number is subjected to an axial and 
flexural load combined. The ratio of applied axial load to the yield 
load is 0.3 as shown in line 6. Negative unity in line 7 indicates 
that control is to be returned to the main program and zero in line 8 
signals the end of this run. 

During the output stage, the input data and various 
geometric properties of the section are listed. In the first block of 
QUEPUE Ee Critical axial loads crities!l axial strain and buckled 
configuration of the cross-section are also printed. In the second 
stage of the solution, the superimposed moment causing local buckling 
and the corresponding buckled configuration are determined. These, in 
addition to the ratios of critical moment to yield moment, reduced 
plastic moment, and plastic moment, form the major part of the second 
block of output. The remainder of the output is similar to that 


described previously for Example Number 1. 


, . - | Pa 
. Vo *Epropes 
ni beeu on pobteee sqaile ¥ one erls astdemy ard al” 


eieb suger OAT inmefno-aesd o sR e19t bsexvlans af £ ssi i mex 


_ 


ois Ye aacty bd Leattgsht ote & 01 | seahd seni s 36 eseisa09 i 
2 ao | - 


beoenn «oY at 2 geepedat me Sac] noti7qsone sefy fiiw molidoxq ra ba 
‘ q WA ) 


hos foie te OF Batontive af todo ef tar siecle o3 hoa ei opie 7 


Baty @f2 of Sant Jaden bellqqs Iv ofzeu ont bentdea» baol ee 


sateottis: V.sall me ytine eviseneh 3 ani! oF cwode os f. O-ei baol 
oe 


4 eoll ict vies toe @ergo3d wie ei? al berrwwi?esd 8d 69 al Totvano9 aati 
exe eff’ Yo bre off aleagee | 


siciizey Sig e226 Pict of) . Oy Surtue aft guisod 


te adsold sovkt ots af -bavei! ata cofsuse mf Yo eneaaaqoig sixsamosg 


exye Indze lagicixvo ,anG! laixes Jpo.31%3 Smt Suqiae 
i 


’ qj 
bregoes Oi a bhatmbea osts sve cuisoea-epo7e afd, 20 nofiszwgitnes) * 


Sailisi4 bam 


ecifdsaiyd laccl grdatios Joe beers. Teqne ac}  motiuloe of3 to agete 
ai ,@sosfT ~dDanieweaIab FR El fategiinous helxood guibnoqeszt92 era ‘bre 
Lanubet .itemom Ajedy oF teanae t205ii7> So polsas sat og Aols2abe 


beuste afd to t75q tolam add mac% ,7nowem sivasiq ons ,InSaoe ottasiq | 
{ _ 


lady o2 sefte¥e at Sug7u0 ada So a9beiemsa ant +Juqzu9 Yo da0kc 
ns 


~t cadewt siquasS vo? ¢levorvezg baa 
_ 


259 


Example Number 1 
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Number of specimens to be analysed 
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Poisson ratio 
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Elastic modulus 


- 
i ae 
a ee 


r 


Pees | 


‘| = fel tens sd or cette To tedmn 
~ G00Z,9 = eitey ngarrey | 
roa igeaes = 8 1utabom shact’ 


Critical Bending Moment 


Critical Bending Moment 
Yield Moment 


Critical Bending Moment = 
Plastic Moment 


Distance to the Neutral Axis 
From Center of Compression F lange= 


RDNA 


Bottom Flange Slenderness Ratio = 
Top Flange Slenderness Ratio = 
Web Slenderness Ratio = 
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to be analysed = 


umber of specimens 
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Poisson ratio 
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Wide Flange Section 1 
subjected to pure bending. 


Inelastic analysis. 


Length of Wide Flange 
Web Depth 

Web Thickness 

Bottom Flange Width 
Bottom Flange Thickness 
Top Flange Width 

Top Flange Thickness 
Area of Cross-section 


Distance to Centroid 
From Cenver of Bottom Flange 


Centroidal Moment of Inertia 
Web Yield Stress 

Bottom Flange Yield Stress 
Top Flange Yield Stress 
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Wide Flange Section 1 


Calculation vor Gri uicaiea tan 


Inelastic analysis. 


P(Applied)/P(Yield) 


Length of Wide Flange 
Web Depth 

Web Thickness 

Bottom Flange Width 
Bottom Flange Thickness 
Top Flange Width 

Top Flange Thickness 
Area of Cross-section 


Distance to Centroid 
From Center of Bottom F lange 
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Web Yield Stress 
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strain Hardening sirain = 0202000 


Aowitet Wel Oa Cate taraUG lic = 390 roo Kips 
(Axial Loead)/ (Yield Voad) = 0,9346 
Average Stress at Buckling = 4 iGo Sal 
Bottom Flange Slenderness Ratio = 14.2857 

Top Flange Slenderness Ratio Sean oor 

Web Slenderness Ratio = 38.6000 
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Beam Column Case No 1 


Subjected to an applied axial load of 125.400000 Kips plus bending. 


P(Applied)/P(Yield) = 0.3000 
Crivtice | Axial Strain Fe HU200 TS 059" 
Applied Axial Strain = 0.00044595 
Critical Bending Moment Sl 6e. (4 Kipe in 
Critical Bending Moment = 0.69866 
Yield Moment 
Critical Bending Moment = 0.80500 
Red. Plast. Mom. 
Critical Bending Moment = 0.64793 


Piastic Moment 


Distance to the Neutral Axis 
From Center of Compression Flange= 7.3309 inches 


RDNA SiO ora 
Bottom Flange Slenderness Ratio = 14.2857 
Top Flange Slenderness Ratio = 914.2657 
Web Slenderness Ratio = 38.6000 
Code Slenderness Ratio - Bottom = 94.7607 
Code Slenderness Ratio - Top = 94.7607 
Code Slenderness Ratio - Web =256.0434 
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